program FindMaxDigit;

var
N, number, maxDigit, maxDigitPosition, position: integer;

begin
writeln${}^{\prime }Введитенатуральноечисло{:}^{\prime }$;
readln$N$;

maxDigit := 0;
maxDigitPosition := 0;
position := 0;

while N > 0 do
begin
number := N mod 10;
writeln${}^{\prime }Цифра{:}^{\prime },number$;

if number > maxDigit then
begin
maxDigit := number;
maxDigitPosition := position;
end;
N := N div 10;
position := position + 1;

end;

writeln${}^{\prime }Наибольшаяцифра{:}^{\prime },maxDigit$;
writeln${}^{\prime }Номерцифрывчисле{:}^{\prime },maxDigitPosition$;
end.