Ответ:

program z1;  

var N,m: integer;  

begin  

write ('N = ');

readln (N);

m:=N mod 10;

while N <> 0 do

begin

if N mod 10 > m then m:=N mod 10;

N:=N div 10

end;

write ('Самая большая цифра числа ',m);

end.