Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

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.