uses crt;

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

i,n,s1,s2: integer

function nt(n: integer): boolean;

var i,d: integer;

begin

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

if d=2 then nt:=true else nt:=false;

end;

begin

clrscr;

write ('nhap n: ');  readln (n);

s1:=0;

s2:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 5=0 then s1:=s1+a[i];

if nt(a[i]) then s2:=s2+a[i];

end;

writeln ('Tong cac so chia het cho 5: ',s1);

writeln ('Tong cac so nguyen to: ',s2);

readln;

end.

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

      i,n,s1,s2: integer

function nt(n: integer): boolean;

var i,d: integer;

begin

   d:=0;

     for i:=1 to n do

   if n mod i=0 then d:=d+1;

   if d=2 then

             nt:=true

     else

              nt:=false;

    end;

 begin

    read(n);

       s1:=0; s2:=0;

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

            if a[i] mod 5=0 then s1:=s1+a[i];

            if nt(a[i]) then s2:=s2+a[i];

       end;

           write(s1:0:1);

           writel(s2:0:1);

end.