program gg;
var i,n,k,sum:integer;
a:array of integer[1..n];
begin
n:=10;
sum:=0;
readln(a[i]);
for i:=1 to n do
k:=a[i]*a[i];
sum:=sum+k;
writeln('summa=',sum);
end.
program gg;
var i,n,k,sum:integer;
a:array of integer[1..n];
begin
n:=10;
sum:=0;
readln(a[i]);
for i:=1 to n do
k:=a[i]*a[i];
sum:=sum+k;
writeln('summa=',sum);
end.