Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. В конце работы программы на экран выводится минимальное и максимальное из введенных чисел (не считая 0)

Program pol;

var

a, b, max, min: integer;

begin

max:=-100000; {Необходимо задать значения max и min заведомо очень маленьким и очень большим, для того, чтобы обеспечить участие в сравнении и не вывести max и min к 0}

min:=100000;

repeat

if (a>max) and (a0) then max:=a;

if (a
read (a);

until a=0;

writeln ('Наибольшее число = ', max);

writeln ('Наименьшее число = ', min);

readln;

end.

Используем оператор цикла с постусловием, условие выхода из цикла: а=0.