Склавиатуры вводятся производные числа a и b. вывести на экран большее из них.

Var a,b: longint; begin                readln(a,b);                 if a> b then writeln(a)                   else writeln(b); end.

Версия языка: pascalabc.net 3.2, сборка 1437 от 03.05.20171. сохраняем текст модуля в файле garnaga.pas и выполняем компиляцию (ctrl+f9) unit garnaga; interface type mass2d=array [,] of integer; function getmass(rand: boolean: =true): mass2d; function sumdiag(a: mass2d): integer; implementation function getmass(rand: boolean): mass2d; begin   var n: =readinteger('количество строк/столбцов в массиве: ');   if rand=true then begin       var a: =readinteger('минимальное значение для заполнения: ');       var b: =readinteger('максимальное значение для заполнения: ');       result: =matrrandom(n,n,a,b)       end   else begin       writeln('вводите элементы массива: ');       result: =readmatrinteger(n,n)       end end; function sumdiag(a: mass2d): integer; begin   result: =0;   var n: =a.rowcount-1;   for var i: =0 to n do result+=a[i,i]+a[i,n-i];   if n.iseven then begin       n: =n div 2;       result-=a[n,n]       end end; end. 2. создаем новый файл и помещаем в него программу, использующую созданный модуль uses garnaga; begin   var a: =getmass; a.println; writeln;   var b: =getmass; b.println; writeln;   var c: =getmass(false); writeln;   writeln('sдиаг=',sumdiag(a)+sumdiag(b)+sumdiag(c)) end. 3. запускаем программу на выполнение. пример работы: количество строк/столбцов в массиве: 4 минимальное значение для заполнения: -20 максимальное значение для заполнения: 35     4 -14 -14  26   26  -6  12  22   13  10 -20  26   -3  22  14  -4 количество строк/столбцов в массиве: 5 минимальное значение для заполнения: 0 максимальное значение для заполнения: 50   13  48    5  12    2   43  31  45  35  23   36  30    6  47  42   11    8  29  36  39   11  33  14  48  29 количество строк/столбцов в массиве: 3 вводите элементы массива: 1 6 2 8 3 4 7 0 5 sдиаг=208

Var a: array [1..10] of integer;                                                                                             i,b: integer;                                                                                                                 begin                                                                                                                                   for i: =1 to 10 do                                                                                             readln(a[i]);   for i: =1 to 10 do begin                                                                                   if a[i]=5 then                                                                                                                       writeln(i,' строка');                                                                                                             end;                                                                                                                               end.