program bai_giai;
uses crt;
var x,y,i,d:longint;
begin
    clrscr;
    write('Nhap x: ');  readln(X);
    write('Nhap y: ');  readln(y);
    d:=0;
    for i:=x to y do
        if i mod 6=0 then
            begin
                write(i,' ');
                d:=d+1;
            end;
    writeln;
    write('Co ta ca ',d,' so');
    readln;
end.

Số chẵn chia hết cho 3 là số chia hết cho 6

Có thể thay i mod 6=0 thành (i mod 2=0) and (i mod 3=0)

uses crt;
var x,y,d:integer;
begin
    clrscr;
    readln(x);
    readln(y);
    d:=0;
    while x mod 6<>0 do x:=x+1;
    while x<=y do
      begin
          write(x,' ');
          x:=x+6;
          d:=d+1;
      end;
    writeln;
    writeln('Co tat ca: ',d,' so');
readln;
end.