Написать на Паскале Четные числа Входные данные Вводятся целые числа a

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

end.