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

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

Program Prog;uses crt;Var x:integer;beginx:=2;while x<30000 do begin write(x,' '); x:=x+2; end;end.PS. Четных чисел в интервале 1:30000 очень-очень много :)