Найти сумму элементов 1-ой, 3-ей и 6-ой строк матрицы и разделить на сумму элементов 3-го столбца

const
  n = 6;
  m = 5;
 
var
  i, j, S1, S2: integer;
  X: array[1..n, 1..m] of integer;
  
begin
  S1 := 0; S2 := 0;
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      x[i, j] := random(50) - 25; //случайное число с диапазона [-25, 24]
      write(x[i, j]:4);
      if i in [1, 3, 6] then S1 := S1 + x[i, j]; //сумма элементов 1-й, 3-й и 6-й строк
      if j = 3 then S2 := S2 + x[i, j] //сумма элементов 3-й колонки
    end;
    writeln
  end;
  writeln;
  writeln('сумма элементов 1-й, 3-й и 6-й строк: S1 = ', S1);
  writeln('сумма элементов 3-й колонки: S2 = ', S2);
  writeln('S1 / S2 = ', S1 / S2);
end.

uses Crt;
const
n = 6;
m = 5;
var
A: array [1..n, 1..m] of integer;
i, j, S, S1: integer;
begin
Randomize();
for i := 1 to n do
begin
for j := 1 to m do
begin
matrix[i, j] := Random(101) - 50;
S:=0;
S1:=0;
if i = 1 or i = 3 or i = 6 then
S:=S+A[i,j];
end;
Writeln;
end;
Write('Сума: ', S, ' / ', S1, ' = ', (S/S1):7:3);
Readln;
end.