Объяснение:

Program zero;

Var a, b: Real; i:Integer;

Begin

Whiteln('Введите диапазон: ');

Readln(a, b);

Whiteln('Чётные числа!!!');

For i:=a to b do

If i mod 2 = 0 then

Write(i, ' ');

Readln

End.