Составить алгоритм нахождения всех неотрицательных чисел стоящих на четных местах в последовательности x1,x2,

1 2 3 4 5 6 7 8 9 и т.д

Var   n,i:integer;
Begin     
Readln(n);     
For i:=2 to n do         
Begin             
If (i>0) then writeln(i);             
inc(i,1);         
End;
End.