nhập vào 1 số nguyên N. đếm xem có bao nhiêu số chia hết cho 5 từ 1 đến N

program chiahet_5;

uses crt;

var n,i,d:integer;

begin

        clrscr;

        write(‘Nhap N: ‘);  readln(n);

        d:=0;

        for i:=1 to n do

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

        write(‘Co ‘,d,’ so chia het cho 5 tu 1 den ‘,n);

        readln;

end.