var k: array[1..250] of word;

      s1, i, n: word;

      s2: real;

Begin

   Write('nhap so phan tu: '); readln(n);

   S1:=0; s2:=0;

   For i:=1 to n do

      Begin

         Write('k[', i, '] = '); readln(k[i]);

         If (k[i] mod 3=0) and (k[i] mod 5<>0)

              Then s1:=s1+k[i]

          Else s2:=s2+sqrt(k[i]);

      End;

   Writeln('tong cac so chia het cho 3 ma khong chia het cho 5: ', s1);

   Write('tong cac so con lai: ', s2);

   Readln

End.

uses crt;
var i,j,s:longint; k:array[1..100000]of longint;
s1:real;
begin
clrscr;
   write('i=');readln(i);
   for j:=1 to i do
      begin 
         write('k[',j,']=');readln(k[j]);
         if (k[j] mod 3=0)and(k[j] mod 5<>0) then inc(s,k[j]) else
         s1:=s1+sqrt(k[j]);
      end;
   writeln('tong cac so chia het cho 3 va khong chia het cho 5: ',s);
   writeln('tong can bac 2 cac so con lai: ',s1);
readln      
end.