program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;

var mas: array[1..3,1..3] of integer;

var n, i, j, i_x, i_y,prev_x, prev_y: integer;
begin
writeln('Magicheskaja konstanta = 15');

for i:=1 to 3 do begin
  for j:=1 to 3 do
    mas[i,j]:=0;
end;

mas[1,2]:=1;
n:=2;
i_x:=1;
i_y:=2;
prev_x:=1;
prev_y:=2;
for i:=1 to 8 do begin
  Dec(i_x);
  Inc(i_y);
  if (i_x<1) then i_x:=3;
  if (i_y>3) then i_y:=1;
  if( mas[i_x,i_y]=0) then
      begin
      mas[i_x,i_y]:=n;
      prev_x:=i_x;
      prev_y:=i_y;
      Inc(n);
      end
      else begin
      mas[prev_x+1,prev_y]:=n;
      i_x:=prev_x+1;
      i_y:=prev_y;
      Inc(n);
      end;
end;
   writeln;
    writeln('Magicheskij kvadrat');
for i:=1 to 3 do begin
  for j:=1 to 3 do
    write(mas[i,j], ' ');
writeln;
end;
writeln;
n:=0;
writeln('Stroki');
for i:=1 to 3 do begin
  for j:=1 to 3 do begin
    n:=n+mas[i,j];
    write(mas[i,j]);
      if(j=3) then begin
        write (' = ', n);
        break;
      end;
    write ('+');
    end;
writeln;
n:=0;
end;
writeln('Stolbci');
for j:=1 to 3 do begin
  for i:=1 to 3 do begin
    n:=n+mas[i,j];
    write(mas[i,j]);
      if(i=3) then begin
        write (' = ', n);
        break;
      end;
    write ('+');
    end;
writeln;
n:=0;
end;
writeln('Diagonali');
writeln(mas[1,1], '+', mas[2,2], '+', mas[3,3], ' = ', mas[1,1]+mas[2,2]+mas[3,3]);
writeln(mas[1,3], '+', mas[2,2], '+', mas[3,1], ' = ', mas[1,3]+mas[2,2]+mas[3,1]);
readln;
end.