числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чисел

нарисуйте блок схему

ребята, блок схема нужна

блок схему нужно нарисовать

{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min  и max, чтобы потом в цикле было с чем сравнивать}varmin,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.