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

      tl, tc, tnt, t5: longint;

      i, n: byte;

 

Function kt(x: word): boolean;

     Var j: word;

     Begin

        if x<2 then exit(false) 

        else if x=2 then exit(true);

        for j:=2 to x-1 do if x mod j = 0 

             Then exit(false);

        Exit(true);

     End;

Begin

     tl:=0; tc:=0; t5:=0; tnt:=0;

     Write('n = '); readln(n);

     For i:=1 to n do

        Begin

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

             If a[i]>0 then if kt(a[i])=true

                      then tnt:=tnt+a[i];

             If a[i] mod 5 = 0 then t5:=t5+a[i];

             If a[i] mod 2 = 0 then tc:=tc+a[i]

             Else tl:=tl+a[i];

        End;

   Writeln('tong cac so le: ', tl);

   Writeln('tong cac so chan: ', tc);

   Writeln('tong so chia het cho 5: ', t5);

   Write('tong cac so nguyen to: ', tnt);

   Readln

End.

 

 

program BT;

uses crt;

var A:array [1..100] of byte;

      n,i,d,j,Ta,Tb,Tc,Td: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if A[i] mod 2<>0 then Ta:=Ta+A[i];

                  if A[i] mod 5=0 then Tb:=Tb+A[i];

                  if A[i] mod 2=0 then Tc:=Tc+A[i];

                  d:=0;

                  for j:=1 to A[i] do

                  if A[i] mod j=0 then d:=d+1;

                  if d=2 then Td:=Td+A[i];

         end;

         writeln('a) Tong cac so le = ',Ta);

         writeln('b) Tong cac so chia het cho 5 = ',Tb);

         writeln('c) Tong cac so chan = ',Tc);

         write('d) Tong cac so nguyen to = ',Td);

         readln

End.