Минимум-максимум. на вход программе подается последовательность целых чисел,заканчивающаяся 0.видитет минимальное и максимальное значение среди чисел этой последовательности,0 при этом не учитывается.при решении массив использовать нельзя.

Var max, min, x:real;
begin
max:=-32001;
min:=32001;
readln(x);
while x<>0 do begin
if x > max then
max:=x;
if x < min then
min:=x;
readln(x);end;
write(max,min);
readln
end.