Здравствуйте!Помогите пожалуйста, если кто может напишите пожалуйста пояснения к каждой строчке в программе, что на каждом этапе происходит. Заранее спасибо!!!!
program mag;
const:
n = 3;
a: array[1 .. n, 1 .. n] of integer =
((1, 2, 1), (1, 1, 1), (1, 1, 1));
var
i, j, s, main: integer;
b: boolean;
begin
s := 0; b := true;
for i := 1 to n do
s := s + a[i, i];
main := s;
for i := 1 to n do
s := s - a[i, n - i + 1];
b := b and (s = 0);
if b then
for i := 1 to n do
begin
s := main;
for j := 1 to n do
s := s - a[i, j];
b := b and (s = 0)
end;
if b then
for j := 1 to n do
begin
s := main;
for i := 1 to n do
s := s - a[i, j];
b := b and (s = 0)
end;
writeln('magic: ', b)
end.