Pascal. Написать программу: нахождения цифры в числе с максимальным значением.
9й класс.

uses crt;   var a,Max,x:integer;   begin        clrscr;        Write('Введите число: ');  readln(a);        Max:=a mod 10;       while a>0 do             begin          x:=a mod 10;          a:=a div 10;          if x>Max then Max:=x;   end;  Writeln('Максимальная цифра: ',Max);  readln;  end.