последовательность целых чисел вводится с клавиатуры до нуля. найдите среди них максимум и минимум и выведете на экран их сумму.

Написал вариант для несильных в программировании.
program Nom;
var a,min,max,sum:integer;
begin
a:=1;
while a<>0 do
begin
Readln (a);
if max = 0 then max:=a;
if min = 0 then min:=a;
if (a>max)and(a<>0) then max:=a;
if (a<min)and(a<>0) then min:=a;
end;
sum:=min+max;
writeln (sum);
end.