program kaito;
uses crt;
var i, n, dem: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
if (n>10) then writeln('Khong hop le!")
else begin
i:=n; dem:=0;
while (i<=100) do begin
if (i mod 3 = 0) then inc(dem);
inc(i);
end;
writeln('Tu ',n,' den ',100,' co ',dem,' so chia het cho 3');
end;
readln
end.
CHÚC BẠN HỌC TỐT!!!