Написать программу ввода целых чисел с клавиатуры, пока не будет введён 0

{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}

var

min, max, a:real;

begin

readln (a) ;

min:=a; max:=a;

while a0 do

begin

readln (a) ;

if a>max then

max:=a;

if a
min:=a;

end;

writeln ('min: ', min,' max: ', max) ;

end.