var a:array[1..3,1..3] of integer;
i,j,s,n,st:integer;
begin
for i:= 1 to 3 do
for j:= 1 to 3 do
readln(a[i,j]);
for i:= 1 to 3 do begin
for j:= 1 to 3 do
write(a[i,j]:5);
writeln;end;
n:=0;
j:=4;i:=0;st:=3;
while n i:=i+1; j:=j-1;
s:=s+a[i,j]; n:=n+1;
end;
writeln('SUM = ',s);
end.

<< Назад