viết ctrinh in ra màn hình các sô chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n. biết n nhập vào từ bàn phím, n nguyên dương

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