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

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