program oken;
uses crt;
var i,n,dem: integer;
begin
clrscr;
write('Nhap so n: '); readln(n);
dem:=0;
for i:=1 to n do
if (i mod 5=0) then
begin
write(i,' ');
dem:=dem+1;
end;
writeln;
if dem=0 then writeln('Trong day so tu 1 den ',n,' khong co so chia het 5.')
else writeln('Co ',dem,' so chia het cho 5 trong day');
readln;
end.