Создать программу , которая принимает число n , и выводит сначала все четные до n, потом все нечетные до n. input 10 output 2 4 6 8 10 1 3 5 7 9

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var n:=ReadInteger('n=') div 2;
  ((2.Step(2).Take(n))+(1.Step(2).Take(n))).Println
end.

Пример
n= 10
2 4 6 8 10 1 3 5 7 9

Вот так будет выглядеть решение на Pascal:

var n, i: integer;

begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then write(i, ' ')
end;
for i := 1 to n do begin
if i mod 2 <> 0 then write(i, ' ')
end;
end.