ukol 2

Program HelloWorld(output);

var i,j, N: integer;
matice: array[1..3,1..3] of integer;
pole: array[1..3] of integer;
var radky,sloupce,uhlopricky: boolean;
begin
matice[1,1]:=2;
matice[1,2]:=7;
matice[1,3]:=6;
matice[2,1]:=9;
matice[2,2]:=5;
matice[2,3]:=1;
matice[3,1]:=4;
matice[3,2]:=3;
matice[3,3]:=78;
pole[1]:=0;
pole[2]:=0;
pole[3]:=0;
N:=3;
i:=0;
j:=0;
radky:=False;
sloupce:=False;
uhlopricky:=False;
//Testuji radky
repeat i:=i+1;
j:=0;
    repeat j:=j+1;
        pole[i] := pole[i] + matice[i,j];
    until  j=N;
until i=N;
{
writeln('Soucet radek 1: ',pole[1])   ;
writeln('Soucet radek 2: ',pole[2])  ;
writeln('Soucet radek 3: ',pole[3])  ;
}
if (pole[1]=pole[2])and (pole[2]=pole[3]) then radky:=True;
//Testuji sloupce
i:=0;
j:=0;
pole[1]:=0;
pole[2]:=0;
pole[3]:=0;
repeat j:=j+1;
i:=0;
    repeat i:=i+1;
        pole[j] := pole[j] + matice[i,j];
    until  i=N;
until j=N;
if (pole[1]=pole[2])and (pole[2]=pole[3]) then sloupce:=True;

//Uhlopricka z leva do prava 11..33
i:=0;
j:=0;
pole[1]:=0;
pole[2]:=0;
repeat i:=i+1;
        j:=j+1;
        pole[1] := pole[1] + matice[i,j];
until  j=N;

//Uhlopricka z leva do prava 13..31
i:=0;
j:=4;
pole[2]:=0;
repeat i:=i+1;
        j:=j-1;
        pole[2] := pole[2] + matice[i,j];
until  i=N;
if (pole[1]=pole[2]) then
    uhlopricky:=True;

if (radky and sloupce and uhlopricky) then
    writeln('Jedná se o magický ctverec')

else writeln('Není magický');

end.