program bai_giai;
uses crt;
var X:array[1..690] of integer;
i,j,t,bp:integer;
begin
clrscr;
write('Nhap i: '); readln(i);
t:=0; bp:=0;
for j:=1 to i do
begin
write('X[',j,']= '); readln(X[j]);
if (X[j] mod 3=0) or (X[j] mod 7=0) then t:=t+X[j]
else bp:=bp+X[j]*X[j];
end;
writeln('Tong cac so thoa man la: ',t);
write('Tong binh phuong cac so con lai la: ',bp);
readln;
end.