Исполнение алгоритма

(в таблице отражен только конечный результат работы циклов типа для, в которых вычисляются суммы)
Обозначения проверяемых условий:
(i<=N) и (Flag = "ДА" )=> (1)
(j<=N) и (Flag = "ДА" )=> (2)
Flag = "ДА"=> (3)

Turbo Pascal

Program MagicSquare;

Uses Crt;

Var A : Array [1..20, 1..20] of Integer;

i, j, N : Integer;

Standard, S : Integer; {Standard - сумма-эталон, S - текущая сумма}

Flag : Boolean;

{-------------------------------------}

Procedure InputOutput; {описание процедуры ввода-вывода матрицы}

Begin

ClrScr;

Write('Количество строк и столбцов - ');

ReadLn(N);

For i := 1 to N do

For j := 1 to N do

begin Write('A[' , i , ', ' , j , '] = ');

ReadLn(A[i, j])

end;

ClrScr;

WriteLn('Исходная матрица :'); WriteLn;

For i := 1 to N do

Begin

For j := 1 to N do Write(A[i, j] : 5);

WriteLn

End; WriteLn

End; { of InputOutput }

{-------------------------------------------}

Procedure MagicOrNot(Var Flag : Boolean); {описание процедуры, }

{в которой выясняется, является ли квадрат "магическим"}

Begin {вычисление суммы элементов главной диагонали}

{в качестве эталонной суммы}

Standard:=0;

For i := 1 to N do Standard := Standard + A[i,i];

Flag:=TRUE; i:=1;

While (i<=N) and Flag do {вычисление сумм элементов строк}

Begin

S:=0;

For j := 1 to N do S := S+A[i, j];

If S<>Standard then Flag := FALSE else i:=i+1

end;

j:=1;

While (j<=N) and Flag do {вычисление сумм элементов столбцов}

Begin

S:=0;

For i := 1 to N do S:=S+A[i, j];

If S<>Standard then Flag := FALSE else j := j+1

end;