Что такое Программное обеспечение. Какие бывают типы Программного обеспечения
Приведите примеры системного ПО
Приведите примеры Прикладного ПО
Приведите примеры Систем программирования
​

var

       n, i, j, h: Word;

       p: Int64;

       a: array [1..10000] of Int64;

begin

       Read (n);

       p := 0;

       for i := 1 to n do

               Read (a[i]);

       

       for i := 1 to n - 1 do

               for j := i + 1 to n do begin

                       if a[i] > a[j] then begin

                               h := a[i];

                               a[i] := a[j];

                               a[j] := h

                       end;

               end;

               

       for i := 1 to n do begin

               p := p + a[i] + a[i + 1];

               a[i + 1] := p

       end;

       Write (a[i]);

end.        

Пояснение:

1) записываем в массив кол-во жителей в каждой провинции

2) сортируем этот массив "пузырьковым" методом, от меньшего к большему (ну хотя можно и рекурсией)

3) Выполняем условие задачи, считаем кол-во паспортов

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

type
  Ex211a=class
 
  public
 
  constructor(fio,phone:string);
  begin
    var n:=Max(fio.Length,phone.Length);
    Writeln((n+2)*'*');
    Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
    Writeln((n+2)*'*')
  end;
end;

type
  Ex211b=class
 
  public
 
  constructor;
  begin
    var n:=ReadInteger('Введите целое число:');
    Writeln('Результат равен ',n+10)
  end;
end;

begin
  new Ex211a('Иван Иванов','7-841-2666666');
  new Ex211b
end.

Пример

*Иван Иванов  *
*7-841-2666666*

Введите целое число: 18
Результат равен 28