Задание по программированию pascalВывести все четные числа кратные 4 из интервала

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (b,a):=ReadInteger2('Введите границы интервала:');
  if alt;b then Swap(a,b);
  var d:=b mod 4;
  if dlt;gt;0 then    // первое число, кратное 4
    if blt;0 then b+=Абс(d) else b+=4-d;
  while blt;=a do begin Print(b); b+=4 end;
end.

Образцы
Введите границы интервала: 15 60
16 20 24 28 32 36 40 44 48 52 56 60

Введите границы интервала: -15 13
-12 -8 -4 0 4 8 12

Введите границы интервала: 1 19
4 8 12 16