Задача 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 - 28.05.2013 22:40

[APAL]

Как то так:

var N: longint;
min_digit: byte;
begin
readln(N);
min_digit := 9;
while N > 0 do
begin
if N mod 10 < min_digit then min_digit := N mod 10;
N := N div 10
end;
writeln(min_digit);
end. 

Сообщение отредактировано: APAL - 29.05.2013 12:15