Найти на карте самый короткий путь от дома ослика до дома совы. Проведи эту дорожку коричневым карандашом.

На 1 пункт:
program mueta;
uses crt;
const n=(любому числу, например 3);
var k:array[1..n]of integer;
s:array[1..n]of integer;
begin
clrscr;
for i:=1 to n do begin
writeln('введите эл-ты массива s[i]=');
readln(s[i]);
end;
for i:=1 to n do begin
if s[i]>0
then 
writeln('s[i] положительное число', s[i]);
ENd.
2)На второй тоже самое только нужно заменить массив на(k) условие нужно поменять на s[i]mod 2=0