С++ переделать в паскаль - C++ - Ответ 3079731

program prog;
 
{$MODE FPC}
 
type
  PPInteger = ^PInteger;
 
// Ввод двумерного массива
procedure Input(a: PPInteger; m, n: Integer);
var
  i, j: Integer;
begin
  WriteLn('Input data: ');
 
  for i:= 0 to m - 1 do
    for j:= 0 to n - 1 do
      ReadLn(a[i][j]);
end;
 
// Вывод двумерного массива
procedure Output(const a: PPInteger; m, n: Integer);
var
  i, j: Integer;
begin
  WriteLn('Output data:');
  for i:= 0 to m - 1 do
  begin
    for j:= 0 to n - 1 do
      Write(a[i][j], ' ');
    WriteLn;
  end;
end;
 
function Sum(const a: PPInteger; m, n: Integer): Integer;
var
  i, j: Integer;
  res: Integer;
begin
  res:= 0;
  i:= 0;
 
  while i < m do
  begin
    j:= 1;
 
    while j < n do
    begin
      Inc(res, a[i][j]);
      Inc(j, 2);
    end;
 
    Inc(i, 2);
  end;
 
  sum:= res;
end;
 
var
  i, s: Integer;
  m, n: Integer;
  a: PPInteger;
begin
  Write('m: ');
  ReadLn(m);
 
  Write('n: ');
  ReadLn(n);
 
  a:= nil;
 
  GetMem(a, m * SizeOf(PInteger)); // Инициализация двумерного динамического массива
  for i:= 0 to m - 1 do
    GetMem(a[i], n * SizeOf(Integer));
 
  Input(a, m, n); // Ввод
  Output(a, m, n); // Вывод
 
  s:= Sum(a, m, n);
  WriteLn('Sum = ', s);
 
  for i:= 0 to m - 1 do // Удаление памяти, выделенной под массив
    FreeMem(a[i]);
  FreeMem(a);
 
  ReadLn;
end.