Числа вводятся до тех пор пока на введено число 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.

{с клавиатуры вводится число 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.