program FindMaxDigit;

var
num, digit, maxDigit: integer;

begin
writeln('Введите трёхзначное число:');
readln(num);

maxDigit := 0;

digit := num mod 10;
if digit > maxDigit then
maxDigit := digit;

num := num div 10;
digit := num mod 10;
if digit > maxDigit then
maxDigit := digit;

num := num div 10;
digit := num mod 10;
if digit > maxDigit then
maxDigit := digit;

writeln('Максимальная цифра в числе: ', maxDigit);

end.