viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)

uses crt;
var n,i,d:longint;
begin
   clrscr;
   repeat
      write('Nhap n (n>=100): '); readln(n);
      if n<100 then writeln('NHAP LAI!');
   until n>=100;
   d:=0;
   for i:=1 to n do if i mod 3=0 then inc(d);
   write('Co ',d,' so chia het cho 3');
   readln;
end.

program dem_3;

uses crt;

var n:integer;

{---Ham---}

function dem(n:integer):integer;

begin

       dem:=0;

       for i:=1 to n do

              if i mod 3=0 then dem:=dem+1;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       write('Co ',dem(n),' so chia het cho 3 tu 1 den ',n);

       readln;

end.