JoKe, Ну смотри, заводишь переменную min: Integer.
Потом действуешь в цикле
Code
Repeat
Write('Введите следующее число: ');
Readln(k);
If (k = 0) then Break
else {сравниваешь число с минимальным};
Until (False);
=))) Ну это общий вид.
Там где сравниваешь с минимальным, просто сверяй, если k < min, то min := k. Т.е. нашли новое минимальное число.. И так в бесконечном цикле до тех пор пока не введем 0. После чего из цикла выходим и выводим на экран минимальное.
Да, не забудь изначально присвоить min первое число. А то не с чем будет сравнивать ^_^. Хотя, если подумать, то не надо =)) 0 он и в африке 0.
В общем сделай фрагмент переназначения min и после цикла вывод min на экран... Посмотри что получится. Понятно?
