С клавиатуры вводетьмя массиа из n целых чисел,составить программку и вывести

Program Solution;

Const

N = 10;

Var

A:Array[0..N] Of Integer;

i,k:Integer;

Begin

k:=0;

Randomize;

Заполняем случайно массив

For i:=0 To N Do

Begin

A[i]:=Random(89)+10;числа в 10..99

Write(A[i], );

End;

WriteLn;

WriteLn(New Array);

Выводит сначала четные числа

For i:=0 To N Do

If A[i] Mod 2 = 0 Then

Write(A[i], );

Позже нечетные

For i:=0 To N Do

If A[i] Mod 2 = 1 Then

Write(A[i], );

ReadLn;

End.