1)var i,j,xx:integer;
x:array [1..5] of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
if i=4 then x[j]:=xx;
end;
end;
for i:=1 to 5 do
write(x[i],' ');
end.
2)var i,j,xx,sum:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
inc(sum,xx*xx);
end;
end;
write(sum);
end.
3)var i,j,xx,ma:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
if i=5 then if ma end;
end;
write(ma);
end.
4)var i,j,xx,sum:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
if i=j then inc(sum,xx);
end;
end;
write(sum);
end.