Листинг программы

program z11;   {Дан прямоугольный целочисленний массив

 размером N*N.Опред. яв-ся ли данный массив магическим квадратом,

 т.е. сумма элм в строках, столбцах и на главных диагоналях равна }

uses crt;

var a:array[1..100,1..100]of longint;

    b:array[1..100]of longint; i,j,l,n:longint;

 begin

  clrscr;

   write('n=');readln(n);

   for i:=1 to n do

   for j:=1 to n do

    begin

     write('a[',i,',',j,']=');readln(a[i,j]);

    end;

    j:=1;l:=1;

   repeat;

    for i:=1 to n do b[j]:=b[j]+a[i,l];

    inc(j);inc(l);

   until l>n;

    l:=1;

   repeat;

    for i:=1 to n do b[j]:=b[j]+a[l,i];

    inc(j);inc(l);

   until l>n;

    i:=1;l:=1;

   repeat;

    b[j]:=b[j]+a[i,l];

    inc(i);inc(l);

   until l>n;

    i:=n;l:=1;inc(j);

   repeat;

    b[j]:=b[j]+a[i,l];

    inc(l);i:=i-1;

   until l>n; j:=n+n+2;l:=1;

   for i:=2 to j do if b[1]=b[i] then inc(l);

   if l=j then write('ДА')

          else write('НЕТ');readln;

 end.