Решить по информатике по паскалю. все четные числа из диапазона от а до в, кратные трём (а< =в)

Var
  a,b,n:integer;
begin
  Write('Введите нижнюю и верхнюю границы: '); Readln(a,b);
  n:=a mod 6;
  if n=0 then n:=a else n:=a+6-n;
  Writeln('Четные числа, кратные трем из указанного диапазона');
  while n<=b do begin Write(n,' '); n:=n+6 end;
  Writeln
end.

Тестовое решение:
Введите нижнюю и верхнюю границы: 13 42
Четные числа, кратные трем из указанного диапазона
18 24 30 36 42