составить программу в Паскале.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var st1:=new Stack<integer>;
  foreach var t in Seq(2,13,20,18,1) do st1.Push(t);
  Write('Стек1: '); st1.Println;
  var st2:=new Stack<integer>;
  foreach var t in Seq(9,11,10,8,4) do st2.Push(t);
  Write('Стек2: '); st2.Println;
  var st3:=new Stack<integer>;
  while st1.Count+st2.Count>0 do begin
    while st1.Count>0 do begin
      var k:=st1.Pop;
      if k.IsEven then begin
        st3.Push(k);
        break
        end
      end;
    while st2.Count>0 do begin
      var k:=st2.Pop;
      if k.IsOdd then begin
        st3.Push(k);
        break
        end
      end
    end;
  Write('Стек3: '); st3.Println;  
end.

For i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to  n do write(a[i],' ')

В программе:
var
i,j,n,x:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:=1 to n do
begin
a[i]:=random (20);
write(a[i],' ')
end;
for j:=n-1 downto 1 do
for i:=1 to j do
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
writeln;
for i:=1 to n do write(a[i],' ')
end.

Пример:
10
3 0 19 18 5 1 4 7 16 8
0 1 3 4 5 7 8 16 18 19