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

uses crt;
var a:longint;
    max: integer;
    
 // функция на поиск максимальной цифры в числе 
function maximal:byte;
  begin
  max:=0;
   while a>0 do begin
    if a mod 10 > max then max:=a mod 10;
    a:=a div 10;
   end;
   maximal:=max
  end;
  
begin
 write('Введите число: '); read(a);
 writeln('Максимальная цифра=',maximal);
end.