program lab_Delphi_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  R: array of array of real;
  MT: array of integer;
procedure inputR(var R: array of array of real);
var
  cntStr, cntStolb: integer;
  i, j: integer;
begin
  writeln('Введите кол-во строк матрицы R: ');
  read(cntStr);
  writeln('Введите кол-во строк матрицы R: ');
  read(cntStolb);
  SetLength(R, cntStr, cntStolb);
  for i := 0 to cntStr - 1 do
    for j := 0 to cntStolb - 1 do
    begin
      writeln('Введите ', j + 1, ' элемент', i + 1,' строки: ');
      readln(R[i,j]);
    end
end;
procedure printR(var R: array of array of real);
var
  i, j, cntStolb, cntStr: integer;
begin
  writeln('Матрица: ');
    for i := 0 to cntStr - 1 do
    begin
      for j := 0 to cntStolb - 1 do
        write(R[i, j]:12:4);
      writeln;
    end;
end;



begin
  inputR(R);
  writeln;
  printR(R);
  readln;
  readln;
end.