Составьте в виде блок - схемы  алгоритм решения  системы  линейных уравнений: а1х +b1y=c1

а2х +b2y=c2

​

Const
  mm = 30;

var
  a: array[1..mm, 1..mm] of integer;
  i, j, m, s: integer;

begin
  Write('Введите число строк матрицы: ');
  Readln(m);
  Randomize;
  Writeln(#13#10, 'Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  { *** 1 *** }
  Writeln('*** Элементы главной диагонали ***');
  for i := 1 to m do Write(a[i, i]:4);
  Writeln;
  Writeln('*** Элементы побочной диагонали ***');
  for i := m downto 1 do Write(a[i, m - i + 1]:4);
  Writeln;
  { *** 2 *** }
  s := 0;
  for i := 1 to m - 1 do
    for j := i + 1 to m do
      s := s + a[i, j];
  Writeln('Сумма элементов, лежащих выше главной диагонали: ', s);
end.

Тестовое решение:

Введите число строк матрицы: 10

Исходная матрица
  -8  15  22  40   6  46 -37  35 -45  -5
  41  22  45  17 -19 -14  50 -11  43 -10
  27  20 -45 -35  27 -27  25   3  34   6
  37   5  38 -36  32 -18  11 -41  44  46
  35  24 -38 -18   1  28 -25 -25  -5  36
  20  33  37 -32 -35  23   9   7 -38 -18
 -29  10 -50   0   9 -15  34  30  35  50
  26  40  -5  48   5 -47   7  24  14  50
  49  -1 -43  49  36 -47  18  20  49 -41
  24 -47  47  12  25 -26  24  12  24 -35
*** Элементы главной диагонали ***
  -8  22 -45 -36   1  23  34  24  49 -35
*** Элементы побочной диагонали ***
  24  -1  -5   0 -35  28  11   3  43  -5
Сумма элементов, лежащих выше главной диагонали: 392

Var x,y,z,Ans:integer;
    u:real;
Begin
  Write('Введите числа x,y,z: ');
  Readln(x,y,z);
  Writeln('Что вычислить из числа ',x,' ?');
  Writeln('1 - sin; 2 - cos; 3 - tg;');
  Readln(Ans);
    case Ans of
    1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
    2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
    3: begin u:=tan(x);  Writeln('tg(',x,') = ',u) end;
    else Writeln('Ошибка!')    end;
  Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
  Writeln('Без модуля - 1; по модулю - 2');
  Readln(Ans);
    case Ans of
     1: begin
         if (u>y) and (u>z) then
 Writeln('Максимальное число - ',u)
          else
                if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
                  else
                      if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
                        else
                            Writeln('Все числа равны.')
        end;
    2: begin
         if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
 Writeln('Максимальное число - ',u)
          else
                if (abs(y)>abs(u)) and (abs(y)>abs(z)) then 
Writeln('Максимальное число - ',y)
                  else
                      if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
 Writeln('Максимальное число - ',z)
                        else Writeln('Все числа равны.')
        end
    end
End.

*.pas прикрепил во вложения