вычисление суммы вводимых чисел

[ronny137]

Вычисление суммы максимального и минимального из последовательно вводимых чисел, рассматриваются только чётные числа. Остановить обработку при вводе заказанного количества чисел. Тип обработки-целые.

вроде сделал. проверьте пожалуйста

var a,s,min,max,n:integer;
 
begin
 min:=high(integer);
 max:=low(integer);
 s:=0;
 n:=0;
 while not seekeoln do
  begin
   read(a);
    if a mod 2 = 0 then
     begin
      inc(n);
       if a<min then min:=a;
         if (a>max) then max:=a;
      s:=max+min;
     end;
  end;
  if n=0 then write('чётных чисел нет') else
 writeln(s);
 readln;
 readln;
end.