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

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