uses crt;
var i,c,n,s,j,d: integer;
a,b:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
 begin
  write('A[',i,']=');
  readln(a[i]);
  if a[i] mod 5=0 then s:=s+a[i];
 end;
writeln('tong cac so chia het cho 5 la:',s);
d:=1;
for i:=1 to n do
for j:=1 to a [i] do
 if a[i] mod j = 0 then c:=c+1;
  if c=5 then begin write(a[i]:3);c:=0; b[d]:=a[i]; d:=d+1; end;
if d>1 then
begin
 write('cac so dep la:');
 for i:=1 to d do write(b[i]:3);
end;
readln;
end.

(mong dc 5*=hay nhất)

(cái này chỉ là trên lý thuyết thôi vì chưa bt dc số nào có đúng 5 ước nên ko chắc là đúng hoàn toàn)

uses crt;

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

i,n,d: integer;

function sd(n: integer): boolean;

var d,i: integer;

begin

d:=0;

for i:=1 to n do 

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

if d=5 then sd:=true else sd:=false;

end;

begin

clrscr;

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

d:=0;

for i:=1 to n do

begin

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

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

end;

writeln ('Co ',d,' so chia het cho 5');

write ('Cac so dep la: ');

for i:=1 to n do if sd(a[i]) then write (a[i]:4);

readln;

end.