uses crt;
var a:longint;
mx:byte;
begin
clrscr;
repeat
write('Введите натуральное число a=');
readln(a);
until a>0;
mx:=0;
while a>0 do
begin
if a mod 10>mx then mx:=a mod 10;
a:=a div 10;
end;
write('Наибольшая цифра=',mx);
readln
end.
uses crt;
var a:longint;
mx:byte;
begin
clrscr;
repeat
write('Введите натуральное число a=');
readln(a);
until a>0;
mx:=0;
while a>0 do
begin
if a mod 10>mx then mx:=a mod 10;
a:=a div 10;
end;
write('Наибольшая цифра=',mx);
readln
end.