program ed;</br>
uses crt;</br>
const n=3;</br>
var mag,sfd,sbd:longint;</br>
a:array[1..n,1..n] of integer;</br>
i,j:integer;</br>
function sumrow(const i,m:integer):longint;</br>
var j:integer;</br>
sum:longint;</br>
Begin
sum:=0;</br>
for j:=1 to m do inc(sum,a[i,j]);</br>
sumrow:=sum;</br>
end;</br>
function sumcolumn(const j,n:integer):longint;</br>
var i:integer;</br>
sum:longint;</br>
Begin
sum:=0;</br>
for i:=1 to n do inc(sum,a[i,j]);</br>
sumcolumn:=sum;</br>
end;</br>
Begin
clrscr;</br>
randomize;</br>
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);</br>
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);</br>
writeln;</br>
end;</br>
mag:=n*(sqr(n)+1) div 2;</br>
i:=1;</br>
while (i<=n) and (sumrow(i,n)=mag) and (sumcolumn(i,n)=mag) do inc(i);</br>
sfd:=0;</br> sbd:=0;</br>
for j:=1 to n do begin
inc(sfd,a[j,j]);</br>
inc(sbd,a[j,n-j+1]);</br>
end;</br>
if (i>n) and (sfd=sbd) and (sfd=mag) then
writeln('magic') else writeln('not magic');</br>
readln;</br>
End.