pascal - 魔方陣フリーパスカル

Question

プログラムは、正方形が魔方陣であるかどうかを出力する必要があります。

ファイルから正方形を読み取る必要があります。

魔方陣 - すべての行、すべての列、および両方の対角線の合計が等しくなければなりません。

プログラムは正解を示しますが、これらの 16 個の数字はテキスト ファイルから読み取る必要があります。

テキストファイルは次のようになります。

1 1 1 1
2 2 2 2 
3 3 3 3
4 4 4 4

プログラム自体:

var
  m:array[1..4,1..4] of integer;
  i:byte;
  j:byte;
  r1,r2,r3,r4,c1,c2,c3,c4,d1,d2:integer;

begin

for i:=1 to 4 do
  for j:=1 to 4 do

  begin
    write('Enter value for column=',i,' row=',j,'  :');
    readln(m[i,j]);
  end;

r1:=m[1,1]+m[1,2]+m[1,3]+m[1,4];
r2:=m[2,1]+m[2,2]+m[2,3]+m[2,4];
r3:=m[3,1]+m[3,2]+m[3,3]+m[3,4];
r4:=m[4,1]+m[4,2]+m[4,3]+m[4,4];
c1:=m[1,1]+m[2,1]+m[3,1]+m[4,1];
c2:=m[1,2]+m[2,2]+m[3,2]+m[4,2];
c3:=m[1,3]+m[2,3]+m[3,3]+m[4,3];
c4:=m[1,4]+m[2,4]+m[3,4]+m[4,4];
d1:=m[1,1]+m[2,2]+m[3,3]+m[4,4];
d2:=m[1,4]+m[2,3]+m[3,2]+m[4,1];

if (r1=r2) and (r2=r3) and (r3=r4) and (r4=c1) and (c1=c2) and (c2=c3) and (c3=c4) and (c4=d1) and (d1=d2) then
  begin
  write('Magic Square');
  end

else
  begin
  write('Not Magic Square');
  end;

readln;

end.