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

var max, min, x:real;beginmax:=-32001;min:=32001;readln(x);while x<>0 do beginif x > max thenmax:=x;if x < min thenmin:=x;readln(x);end;write(max,min);readlnend.