Program qwe;
Uses crt;
Const n=10;
Type mas=array[1..n,1..n] of shortint;
Var a: mas;
sum,i,j: integer;
begin
Clrscr;
sum:=0;
For i:=1 to n do
begin
For j:=1 to n do
begin
Read(a[i,j]);
Write(a[i,j]:4);
sum:=sum+sqr(a[i,j]);
end;
Writeln;
end;
Writeln('Сумма равна ',sum);
End.