Впаскале выдает "ошибка: ожидался идентификатор" надо вывести на экран четные числа из промежутка 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;
begin
x:=2;
while x<30000 do
 begin
 write(x,' ');
 x:=x+2;
 end;
end.

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