Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. В конце работы программы на экран выводится минимальное и максимальное из введенных чисел (не считая 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.