2-3 недели сделать не очерь ! 50 ​

Uses crt; var a: integer; begin        clrscr;         writeln('архитектор исаакиевского собора:   ');         writeln('1. доменико трезини');         writeln('2. огюст монферран');         writeln('3. карл росси');         writeln('введите номер правильного ответа и нажмите < enter> ');         readln(a);         if a=2 then writeln('правильно. архитектор исаакиевского собора - огюст монферран')        else writeln('не правельно');         readln;         end.

// pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 // написано для подмножества языка // turbo pascal

uses crt;

const

  n = 3;

var

  a: array[1..3, 1..3] of integer;

  i, j, s: integer;

begin

  clrscr;

  randomize;

  s : = 0;

  for i : = 1 to 3 do

  begin

    for j : = 1 to 3 do

    begin

      a[i, j] : = random(99) - 49;

      write(a[i, j]: 4);

      if i = j then s : = s + a[i, j]

    end;

    writeln

  end;

  writeln('сумма элементов главной диагонали: ', s);

  readkey

end.