uses crt;
const x=3; y=4;
var a,b: array[1..x,1..y] of integer;
   i,j,n: integer;
begin
clrscr;
n:=0;
  writeln('Введите двумерный массив: ');
  for i:=1 to x do
    for j:=1 to y do
    begin
      read(a[i,j]);
      b[i,j]:=a[i,j];
      n:=n+a[i,j];
      if a[i,j]=0 then b[i,j]:=n;
      end;
    writeln('Начальный массив: ');
    for i:=1 to x do
    begin
    writeln;
      for j:=1 to y do
      write (a[i,j]:7);
    end;
  readln;
  writeln;
  writeln('Массив после изменений: ');
    for i:=1 to x do
    begin
    writeln;
      for j:=1 to y do
      write (b[i,j]:7);
    end;
  readln;
end.