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

program zz1;

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

begin

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

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

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

if i mod 2 = 0 / / проверяем условие, если очередное число четное, то

then write (' ', i); / / выводим ответ в строчку через пробел

end.