Заранее . условие : определить наименьшее из чисел, введенных с клавиатуры. количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "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.