Входные данные вводятся целые числа a и b. гарантируется, что a не превосходит b выходные данные выведите (через пробел) все четные числа от a до b (включительно). примеры входные данные 2 5 выходные данные 2 4

Программа:

var a, b: integer;

begin

   read(a, b);

   if (a mod 2 <> 0) then a := a + 1;

   while a <= b do

   begin

       write(a, ' ');

       a := a + 2

   end

end.

Пример ввода:

1 15

Пример вывода:

2 4 6 8 10 12 14