Var i,j,s,g: integer; a: array [1..5,1..5] of integer;
Begin
// считываешь массив и "s"
For i:=1 to 5 do
for j:=1 to 5 do
If i+j=s then g:=g+a[i,j];
Writeln(g)
End.
