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.

uses crt;
var x:array[1..690] of longint;
        i,j,s,b:longint;
begin
        clrscr;
        write('i='); readln(i);
        write('Cac phan tu: ');
        for j:=1 to i do 
                begin
                        read(x[j]);
                        if ((x[j] mod 3=0) or (x[j] mod 7=0)) then inc(s,x[j])
                        else b:=b+(sqr(x[j]));
                end;
        writeln('Tong: ',s);
        writeln('BP: ',b);
        readln;
end.