Расположите по порядку оформление оглавления

Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;   
        i,n,summa:integer;

BEGIN
CLRSCR;
Randomize;

  {Проверяем на размер массива, чтобы не превышал 100}
   Repeat   
      Writeln('Введите размер массива до 100');   
      Readln(n);
   Until n<=100;

{Заполняем массив случайными числами от -50 до 100}
   For i:=1 to n do   
      begin     
         A[i]:=-50+Random(100);     
         Write(A[i],'  ');   
      end;

   summa:=0;

{Находим отрицательные элементы массива и складываем}
   For i:=1 to n do   
      if A[i]<0 then summa:=summa+A[i];

   Writeln;
   Writeln('Сумма отрицательных элементов массива  = ',summa);

READLN;
END.

Первая:
program qwer;
uses crt;
var i, kol : integer;
Begin
kol := 10;
for i := 10 downto 1 do
begin
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят резвились на просторе.');
writeln(kol,' Один из них утоп – его сложили в гроб,');
kol := kol - 1;
writeln('И вот вам результат – ',kol,' поросят…');
end;
End.
Вторая: 
program qwer;
uses crt;
var i, pr, n : integer;
Begin
readln(n);
pr := 1;
for i := 1 to n do
pr := pr * i;
write(pr);
End.
Третья:
program qwer;
uses crt;
var s, i : integer;
Begin
s := 115;
for i := 1 to 9 do
writeln(i * 100,'г = ',i * 100 * s / 1000,'руб');
End.
Готово!