Помогите решить задачу по информатике по паскалю. Все четные числа из диапазона от А до В, кратные трём (А<=В)

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