Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / procedure / Program4

uses crt;
var a:longint;
max: byte;

// процедура на поиск максимальной цифры в числе
procedure maximal;
begin
write('Введите число: '); read(a);
max:=0;
while a>0 do begin
if a mod 10>max then max:=a mod 10;
a:=a div 10;
end;
end;

begin
maximal;
writeln('Максимальная цифра=',max);
readln;
end.