Вопрос, который вызвал трудности

В паскале выдает "Ошибка:ожидался идентификатор"
Надо вывести на экран четные числа из промежутка 1:30 000 ( возможно, решение неправильное)

Program do 30000;
uses crt;
Var x integer;
begin
x:=1;
while x<30000 do begin<br> write(x);
x:=x+1
end;
end.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program Prog;
uses crt;
Var x:integer;
begin
x:=2;
while x<30000 do<br> begin
 write(x,' ');
 x:=x+2;
 end;
end.

PS. Четных чисел в интервале 1:30000 очень-очень много :)