Viết chương trình nhập số nguyên dương N (N<200) Đếm và đưa ra màn hình những số chia hết cho 5 trong phạm vi từ 1 đến N

Program NN;
Uses crt;
Var n,i,d: longint;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        d:=0;
        For i:=1 to n do
                If i mod 5 = 0 then inc(d);
        Write(d);
        Readln
End.