Задание

Определите, что будет выведено на экран в результате выполнения программы:

arr[1,1] := -1; arr[1,2] := 0; arr[1,3] := 1;

arr[2,1] := -1; arr[2,2] := 0; arr[2,3] := 1;

arr[3,1] := -1; arr[3,2] := 0; arr[3,3] := 1;

s := 0;

for i := 1 to 3 do

begin

for j := 1 to 3 do

begin

s := s + arr[i, j];

end;

end;

writeln(s);