Câu 1:
uses crt;
var n,i:integer;
begin
    clrscr;
    write('nhap n: ');
    readln(n);
    for i:=1 to n do
    begin
        if i mod 3 = 0 then write(i,' ');
    end;
    readln
end.

Câu 2:
uses crt;
var n,i:integer;
begin
    clrscr;
    write('nhap n: ');
    readln(n);
    for i:=1 to n do
    begin
        if n mod i = 0 then write(i,' ');
    end;
    readln
end.

Câu 1 sửa tí
uses crt;
var n,i,d:integer;
begin
    clrscr;
    write('nhap n: ');
    readln(n);
    for i:=1 to n do
    begin
        if i mod 3 = 0 then d:=d+1;
    end;
    writeln('Co ',d,' so chia het cho 3');
    readln
end.