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

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;  Writelnend.Тестовое решение:Введите нижнюю и верхнюю границы: 13 42Четные числа, кратные трем из указанного диапазона18 24 30 36 42