{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать} var min,max,a:real; begin readln(a); min:=a;max:=a; while a<>0 do begin readln(a); if a>max then max:=a; if a<min then min:=a; end; writeln('min: ',min,' max: ',max); end.