Определите тип исполнителя в предложенных ситуациях а) симфонический оркестр исполняет музыкальное произведение
б) ученик 6 класса выполняет дз по математике
в) фармацевт готовит лекарство по рецепту
г) врач устанавливает причину плохого состояния пациентам
д) автомат на конвейере наполняет бутылки лимонадом
е) компьютер выполняет программу проверки правописания​

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 

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.