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

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.