Создать программу , которая принимает число 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 lt;gt; 0 then write(i, )
end;
end.