Программа (подкорректировать) для сортировки четных чисел (используется While...Do)

[AntoshkaK]

Программа должна выводить чётные числа из интервала, введенными с клавиатуры. Но, при этом если вводятся, например числа 6 и 8, то ничего не выводится, и так же точно, если второе число меньше первого.
Запутался
var
a1,a,ch:integer;
begin
writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(a1);
if a>a2 then
Writeln('Ошибка!')
else
begin
While (a..a1 mod 2<>0) do
writeln('Четные числа', ch);
end;
end.

Заранее огромное спасибо!

[Juffin]

У вас ch не вводится, а сразу выводится.
Вобщем напишите мне в аську 624-983-587.

[Arigato]

AntoshkaK, сколько готовы заплатить за помощь?

[AntoshkaK]

Arigato, для Вас, я чувстую эта задача проще "пареной репы"
Juffin, без аськи, можете здесь объяснить суть.

[Arigato]

Здесь не получится, т.к. вы должны сначала цену обговорить. Что-то мне подсказывает, что вы не понимаете сути раздела Фриланс.