(Có gì sai thì bạn bảo mình nhé!)
program Bao_nhieu_so_chia_het_bay;
use Crt;
var x, m, n: integer;
Begin
clrscr;
writeln("Nhap so n");
readln(n);
m:= 1;
x:= 0;
while m<n do
begin
if m mod 7 = 0 then x:= x+1;
m:= m+1
end;
writeln("So cac so chia het cho 7 tu 1 den", n, "la:", x);
end.