Program tinh_tong;
Uses crt;
Var A: array [1..10] of integer;
n,i: byte;
S:longint;
Begin
Write ('nhap n=');
Readln (n);
For i:= 1 to n do
Begin
Write ('nhap phan tu thu',i,'=');
Readln (A[i]);
end;
S:=0;
For i:=1 to n do
S:= S+ A[i]*A[i];
Writeln ('Tong binh phuong cua n so la:',S);
Readln
End.