Даны два целых числа а и b. посчитать их разность, сумму, произведение, частное. результат у, z, x, q. выполнить в lazarus

//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале

const
    max = 12;
var N,i,j:byte;
    sum:integer;
    ar:array[1..max, 1..max] of integer;

begin
  writeln('Вычислить сумму диагональных элементов квадратной матрицы');
  write('Введите размер матрицы N = ');
  readln(N);
 
  for i:=1 to N do begin
    for j:=1 to N do begin
      ar[i,j]:=random(-12,12);//любые числа
      write(ar[i,j]:6);
    end;
    writeln();
  end;
 
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      if ( i = (n-j+1) ) or ( i = j ) then
        sum:=sum+ar[i,j];

  writeln('Сумма sum = ', sum);
end.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=0;
  for var i:=1 to n-1 do
    for var j:=n-i to n-1 do
      if a[i,j].IsEven then k+=1;
  Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
  90  57  58  49  91 -83  61
 -57  70  52  90  53 -22  89
 -90 -23  39 -88  28  16 -34
 -65 -19 -92 -49  77  11  79
 -37 -85  -5   6 -41 -75 -90
   1  62  24  92 -37  88  21
 -65 -47  48 -39 -46   6  38

Количество четных элементов ниже побочной диагонали: 11