Задача Pascal Опции

[Calibri]

Нужно исправить программу, чтобы при выполнении с клавиатуры вводилось натуральное число, не превышающее 10^9, и выводилась минимальная цифра этого числа.

var N: longint;
digit, min_digit: integer;
begin
readln(N);
min_digit := 0;
while N > 0 do
begin
digit := N mod 10;
if digit > min_digit then
min_digit := digit;
N := N div 10
end;
writeln(min_digit);
end.

и что эта программа выведет, если ввести число 461.
Заранее спасибо!

Сообщение отредактировано: Calibri - 29.05.2013 2:40