uses crt;
var i,n,s,j: integer;
      a: array [1..1000] of integer;
begin
 clrscr;
 write('nhap so luong phan tu: '); readln(n);
 for i:=1 to n do 
  begin
   write('nhap so thu ',i,': '); readln(a[i]);
  end;
 j:=1;
 for i:=1 to n do
  if a[i]>1 then
   begin
    repeat
     j:=j+1;
    until (a[i] mod j=0);
    if j>(a[i] div 2) then s:=s+sqr(j);
    j:=1;
   end;
 write('tong binh phuong cac so nguyen to trong day la: ',s);
 readln;
end.

uses crt;

var a:array[1..1000]of integer;

ok,i,n,s,j:integer;

begin

readln(n);

for i:= 1 to n do read(a[i]);

for i:= 1 to n do

begin

ok:=0;

   for j:=1 to  a[i] div 2 do

       if a[i] mod j = 0 then ok:=1;

if ok= 0 then s:=s+(a[i]*a[i]);

end;

for i := 1 to  n do writeln(s);

end.