Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. в конце работы программы на экран выводится минимальное и максимальное из введенных чисел (не считая 0). входные данные на вход программы целые числа, по одному в строке. ввод завершается числом 0. выходные данные программа должна вывести минимальное и максимальное из введенных чисел (не считая 0) в одной строке через пробел.
uses crt;
var max,min,a:integer;
begin
read(a);
max:=a;
min:=a;
while a<>0 do begin
read(a);
If (max< a) and (a<>0) then begin
max:=a;
end;
If (min>a) and (a<>0) then
min:=a;
end;
write(max,' ', min);
end.