Пожалуйста,напишите ПОЛНОСТЬЮ задачку ** Pascal Отпечатайте с соответствующим заголовком...

Question

Пожалуйста,напишите ПОЛНОСТЬЮ задачку на Pascal

Отпечатайте с соответствующим заголовком в два столбца элементы 1-й и 4-й строк матрицы А

Answer 1

Var
  b : array [,] of real;
  i, k, m : integer;
begin  while m < 4 do begin
   write('Введите размер матрицы (>3): ');
    readln(m);
  end;
  b := new real[m,m];
  for i := 0 to m-1 do begin
    for k:= 0 to m-1 do begin
      read(b[i,k]);
    end;
  end;
  writeln();
  write('Cтрока 1: '); write(Chr(9)); writeln('Cтрока 4:');
  for i:= 0 to m-1 do begin
    writeln(b[0,i], Chr(9), Chr(9), b[3,i]);
   end;
end.

матрицу желательно вводить построчно и с пробелом между элементами
писалось в PascalABC.NET

---