определить наименьшее из чисел введённых с клавиатуры количество чисел не известно, а их запрос с клавиатуры прекращается если введено число 0
(pascal)

program raf105;

var a, min: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

min:= 10000;

readln(a);

while a<>0 do

begin

 if a<min

   then min:= a;

 readln(a);

end;

writeln('Наименьшее: ',min);

end.