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

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

program n1;var        i,n,x:integer;beginn:=0;for i:=1 to 9 do beginwriteln('Введите число'); readln(x);if x>n then n:=x;end;writeln(n);end.program n1;var        i,n,x:integer;beginn:=32767;for i:=1 to 9 do beginwriteln('Введите число'); readln(x);if (x<n) and (x mod 2=0) then n:=x;end;writeln(n);end.