Решить в паскале:

1. Найти наилучший результат прыжков в длину среди 9 участников.

2. Из n введенных чисел найти минимальное значение среди четных элементов

Program n1;

var

i, n, x:integer;

begin

n:=0;

for i:=1 to 9 do begin

writeln ('Введите число') ; readln (x) ;

if x>n then n:=x;

end;

writeln (n) ;

end.

program n1;

var

i, n, x:integer;

begin

n:=32767;

for i:=1 to 9 do begin

writeln ('Введите число') ; readln (x) ;

if (x
end;

writeln (n) ;

end.