Pascal ABC, помогите, пожалуйста)

Question

Pascal ABC, помогите, пожалуйста)

---

Answer 1

Var
  i, j, n: integer;
  A: array[1..100, 1..100]of integer;
 
begin
  writeln('Введите размер матрицы:');
  read(n);
  writeln(' Матрица A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      A[i, j] := random(10, 99);
      write(A[i, j]:3);
    end;
    writeln;
  end;
  writeln(' Результат:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if(i < j) then A[i, j] := 0;
      write(A[i, j]:3);
    end;
    writeln;
  end;
end.