Ответ:

program z1;

var a,m:integer;

begin

write ('Введите число: ');

readln(a);

m:=a mod 10;

repeat

if m<a mod 10 then m:=a mod 10;

a:=a div 10

until a=0;

write ('Наибольшая цифра: ',m)

end.

Объяснение:

Вводим число

Предполагаем, что последняя цифра числа наибольшая (переменная m)

Цикл:

сравниваем значение последней цифры числа с переменной m и если она больше, то присваиваем переменной m её значение

отбрасываем последнюю цифру числа

проверяем условие выхода из цикла

Выводим наибольшую цифру числа