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

Я думаю,что так.
Uses CRT;
Var a,b,i:integer;
Begin
Writeln('Введите 2 числа');
Readln(a);readln(b);
While b<>a do begin
i:=b-1;
Writeln('i');
End;

End.