выведите (через пробел) все четные числа от a до b (включительно)

program zz1;

var a, b, i:integer; / /задаем три переменные целого типа

begin

write ('Введите первое число а'); / /вводим число а с клавиатуры, нажимаем Enter

Read (a);

write ('Введите второе число b'); / /вводим число b с клавиатуры, нажимаем Enter

Read (b);

for i:=a to b do / /организуем цикл от первого числа до второго

if i mod 2 = 0 then write (i,' '); / /проверяем, если число делится на два, то выводим его на экран, следующее число будет выведено в этой же строке через пробел

end.