Tahret Ответ в файле::::::::::::::::::::::::::::::::::::::::

alibekal777Alibekal Var a:array[1..100000] of longint;i,n,max,min:longint;   
begin     
Assign(input,'input.txt');Reset(input);     
Assign(output,'output.txt');Rewrite(output);     
readln(n);
min:=maxint;
max:=0;     
for i:= 1 to n do begin       
readln(a[i]);       
if a[i] mod 2 = 0 then begin         
if a[i] > max then max:=a[i];       
if a[i] < min then min:=a[i];       
end;     
end;     
Writeln('min = ',min);     
Writeln('max = ',max);     
Close(input);Close(Output);   
end.
Например 
вводишь в файл input.txt
5
1
2
3
4
5
он в файле output.txt вывидет
min = 2
max = 4