program LargestDigit;
var
num, remainder, largestDigit: integer;
begin
largestDigit := 0;

write${}^{\prime }Enteranaturalnumber{:}^{\prime }$;
readln$num$;

while num > 0 do
begin
remainder := num mod 10;

if remainder > largestDigit then
largestDigit := remainder;
num := num div 10;

end;

writeln${}^{\prime }Thelargestdigitinthenumberis{:}^{\prime },largestDigit$;
end.