Надо все расписать , как делать. надо сделать . нужно , максимум скопировать 2 файла в каталог pic 211 и 3 -й файл текстовых doc2.переменовать doc1 на doc11. после просмотра учителя удалить командную строку.

1. современное решение pascalabc.net 3.2, сборка 1417 от 28.03.2017 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('введите двухзначное число: ');   writeln('максимальная цифра ',max(n div 10, n mod 10)) end. 2. школьное решения уровня турбопаскаль 1983г. var   n,d,e,max: integer; begin   write('введите двухзначное число: ');   read(n);   d: =n div 10;   e: =n mod 10;   if d> e then max: =d   else max: =e;   writeln('максимальная цифра ',max) end. 3. пример работы обоих программ (одинаковый) введите двухзначное число: 37 максимальная цифра 7

Const     n = 13; var     a: array[1..n] of integer;     i,max,min,s: integer; begin randomize; write('исходный массив a(',n,'): '); min: =1; max: =1; for i: = 1 to n do       begin       a[i]: =random(201)-100;       write(' ',a[i]);       if a[i]< a[min] then min: =i;       if a[i]> a[max] then max: =i;       s: =s+a[i];       end; writeln; writeln('min(a) = a[',min,'] = ',a[min]); writeln('max(a) = a[',max,'] = ',a[max]); writeln('среднее арифметическое элементов массива = ',s/n); write('новый массив: '); s: =a[min]; a[min]: =a[max]; a[max]: =s; for i: = 1 to n do       write(' ',a[i]) end. пример работы программы: исходный массив a(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44 min(a) = a[6] = -73 max(a) = a[7] = 93 среднее арифметическое элементов массива = 9.15384615384615 новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44