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

Program p1;
var a,b,i:integer;
begin
writeln('Введите a');readln(a);
writeln('Введите b');readln(b);
for i:=a to b dobeginif (i mod 2)=0 Then write(i,' ');
end;
end.