50 дано натуральное число a , большее 9 , в записи которого нет нулей . требуется найти максимальное двузначное число , которое можно увидеть в записи числа a . например , для числа 18943 ответом будет число 94.

var k,a,i: integer;

s: string;

begin

readln(a);

s: =inttostr(a);

k: =10;

for i: =1 to length(s)-1 do begin

if (strtoint(copy(s,i,2))> k) then

k: =strtoint(copy(s,i,2));

end;

writeln(k);

end.

program n_1;

uses math;

var i, n, m, a, kol, j: int64;

begin

    readln(n);

    kol: =0;

    a: =n;

    while a< > 0 do begin

        a: =a div 10;

 
      kol: =kol+1;

    end;

    m: =n mod 100;

    for i: =1 to kol-1 do begin

        if((n div 10) mod 100 > m) then m: =(n div 10) mod 100;

        n: =m div
10;

    end;

    writeln(m);

end.

решение чисто . думаю через строковый тип данных работать будет намного проще.

1)информатика-это наука о способах получения, накопления, хранения, ,передачи и использования информации.  2)-это наука, изучающия оболочку земли. 3)фонетика-это раздел науки языкознания, изучающий звуки речи и звуковое строение языка  4)ботаника-это наука о растениях, раздел биологии.  5)имя существительное-это самостоятельная часть речи,обозначает предмет и   отвечает на вопрос кто? что? 6)глагол-это самостоятельная часть речи,обозначают действие   и отвечают на вопросы что делать? что сделать? что делал(а,и,  7)земледельцы-это люди, занимающиеся наукой и отраслью сельскохозяйственного производства 8)животноводы-это люди, занимающиеся отраслью сельского хозяйства, занимающейся разведением сельскохозяйственных животных для производства животноводческих продуктов.  9)тяжёлая промышленность-это группа отраслей промышленности, производящих преимущественно средства производства. к тяжёлой промышленности относится почти вся добывающая промышленность и часть обрабатывающей промышленности.  10)легкая промышленность-это совокупность специализированных отраслей промышленности, производящих главным образом предметы массового потребления из различных видов сырья.