program B8;
uses crt;
var so:array[1..100] of integer;
i,n:integer;
begin
clrscr;
writeln('Nhap n:');readln(n);
for i:= 1 to n do
begin
writeln('Nhap so thu ',i,':');readln(so[i]);
end;
for i:= 1 to  n do
if (so[i] mod 3=0) or (so[i] mod 5 =0) then
writeln('Cac so chia het cho 3 va 5 la:',so[i]);
readln;
end.

Đáp án: Như phần "Giải thích các bước giải"
Giải thích các bước giải:

Uses Crt;
Var a:array[1..1000] of integer;
      i,n:integer;
Begin
 Write(' Nhap do dai day n ='); Readln(n);
For i:= 1 to n do
 Begin
   Write(' Nhap so thu a[',i,'] = '); Readln(a[i]);
 End;
Write(' Cac so trong day chia het cho ca 3 va 5 la: ');
For i:= 1 to n do If (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:3);
Readln
End.