выводит все четные числа расположенные между двумя

[Nekro95]

напишите программу в паскале которая выводит все четные числа расположенные между двумя введёнными числами
Помогите

[Кольша]

var
i,o,d:integer;
begin
writeln('ot:');
readln(o);
writeln('do:');
readln(d);
for i:=o to d do
if odd(i)=false then/// if i mod 2=0 then
writeln(i);
end.

[Poma][a]

Кольш, 1) задача учебная => " от " и " до " не есть очень хорошо.. Надо читать 2 числа и менять их чтобы, например а - наименьшее и b - наибольшее..
2) Такой цикл не есть хорошо.. Надо опять же химичить с границами, сделать их четными и в while инкриминтировать на 2..

[Nekro95]

а как можно с while сделать

[Кольша]

var
o,d:integer;
begin
writeln('ot:');
readln(o);
writeln('do:');
readln(d);
while o<=d do
if odd(i)=false then begin
writeln(o);
o:=o+2; end  else
o:=o+1;
end.

На компиляторе не проверял