Pascal ABC.
Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.

 var   n,m,a : integer; begin  readln (n);  While n > 0 do   begin    a := n mod 10;     if a > m then      m := a;    n := n div 10;   end;  writeln (m); end.