Program Premier-liga-2; Var B: array[1..16] of integer; Team: array[1..16] of string I,K,X: integer; St:string; Begin {Ввод названий команд и набранных ими очков} Writeln(‘Введите названия команд и полученные ими очки’) For I:=1 to 16 do Begin Write(I,’ Название: ’); Readln(Team[I]); Write(’Очки: ’); Readln(B[I]) End; {Сортировка} For K:=1 to 15 do For I:=1 to 16–K do If (B[I] > B[I+1]) then Begin X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X; St:=Team[I]; Team[I]:=Team[I+1]; Team[I+1]:=St End; {Вывод отсортированной таблицы} For I:=1 to 16 do begin {Присоединение пробелов к названиям команд} For K:= 1 to 18-length(Team[I]) do Team[I]:=Team[I]+’’; {Вывод: место, команда, очки} Writeln(I:2,’’,Team[I]:18, B[I]:2) end End.