Elena_matrix

{Дана целая квадратная матрица N-го порядка.
Определить, является ли она магическим квадратом,
т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.}
var
    a:array[1..10,1..10] of integer;
    i,s,j,n,s2,s1,h:integer;
    b:boolean;
begin
    write('Vvedi razmer(ne bolee 10): ');
    readln(n);
    write('vvedi elementy: ');
    for i:=1 to n do
        for j:=1 to n do
            read(a[i,j]);
    writeln;
    for i:=1 to n do
        begin
        for j:=1 to n do
            write(a[i,j]:4);
        writeln;
        end;
    s2:=0;b:=true;h:=0;
    for j:=1 to n do
        s2:=a[1,j]+s2;
    for i:=1 to n do
    begin
        s1:=0;
        for j:=1 to n do
            s1:=a[i,j]+s1;
        if s1=s2 then h:=h+1;
    end;
    if h<>n then b:=false;
    h:=0;s2:=0;
    for i:=1 to n do
        s2:=a[i,1]+s2;
    for i:=1 to n do
    begin
        s1:=0;
        for j:=1 to n do
            s1:=a[j,i]+s1;
        if s1=s2 then h:=h+1;
    end;
    if (h<>n)or(b=false) then b:=false;
    if b then writeln('kvadrat magic')
        else writeln('samyi obychnyi kvadrat, nichem ne vydelyaetsya');
    readln;
End.