1/
Uses Crt;

Var A: array[1..500] of integer;

       i,s,n: integer;

Begin

 Clrscr;

 Write('Nhap n : '); Readln(n);

 For i:=1 to n do 

  Begin

   Write('Nhap A[',i,'] : '); Readln(A[i]);

  End;

 For i:=1 to n do If 3 mod A[i] = 0 then 

   If 5 mod A[i] <> 0 then s:=s*A[i];

 Writeln('Tích cac so la uoc cua 3 va khong la uoc cua 5 la :',s);

 Readln

End.
2/
Uses Crt;

Var i,n,dem : integer;

Begin

 Clrscr;

 Write('Nhap n :'); Readln(n);

 For i:=1 to n do If i mod 7 = 0 or i mod 5 = 0 then dem:=dem+1;

 Writeln('Co ',dem,' so chia het cho 7 hoac 5 ');

 Readln

End.

- Chương trình 1 :

uses crt;

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

i, N, T : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

T := 1;

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(B[i]);

        if (3 mod B[i] = 0) and (5 mod B[i] <> 0) then

        T := T * B[i];

    end;

write('Tich = ', T);

readln

end.

- Chương trình 2 :

uses crt;

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

i, N, d : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(B[i]);

        if (B[i] mod 7 = 0) or (B[i] mod 5 = 0) then

            d := d + 1;

    end;

write('So luong = ', d);

readln

end.