Program sport;
const 
   NC=7; {число команд}
Var
team: array[1..NC+1] of string[30]; {команда}
game: array[1..NC+1, 1..5] of integer; {кол-во матчей, побед, ничьих}
m: integer;
i, j: integer;
begin
team[1]:=?Алания            ?;
team[2]:=?Динамо           ?;
team[3]:=?Зенит             ?;
team[4]:=?Локомотив    ?;
team[5]:=?Ростсельмаш?;
team[6]:=?Ротор            ?;
team[7]:=?Спартак        ?;
writeln (?Для каждой команды в одной строке введите через пробел?);
writeln (?число побед, ничьих и поражений и нажмите <Enter>?);  
writeln;
for i:=1 to NC do
begin
write (team[i], ?п?*?);
readln (game[i, 2], game[i,3], game[i,4]);
end;
{подсчет кол-ва матчей и очков}
for i:=1 to NC do
begin
game[i,1]:=game[i,2]+game[i,3]+game[i,4]; {кол-во матчей}
game[i,5]:=game[i,2]*3+game[i,3]; {кол-во очков}
end;
{сортировка таблицы}
for i:=1 to NC-1 do
begin
{найти строку, в которой максимальное количество очков}
m:=i;
for j:=i+1 to NC do
      if game[j,5]>game[m,5] then m:=j;
{обменяем i-ю строку с m-й}
team[NC+1]:=team[i];
team[i]:=team[m];
team[m]:=team[NC+1];
for j:=1 to 5 do
begin
game[NC+1, j]:=game[i, j];
game[i, j]:=game[m, j];
game[m, j]:=game[NC+1, j];
end;
end;
{вывод итоговой таблицы}
writeln;
writeln (?**Итоговая таблица**?);
writeln (?---------------------------------------------------------------------------------?);
writeln (?  Команда            Матчей     Побед    Ничьих   Пораж.   Очков?);
writeln (?---------------------------------------------------------------------------------?);
for i:=1 to NC do
begin
write (i:2, ?.?, team[i]);
for j:=1 to 5 do
      write (game[i, j]:7);
writeln;
end;
writeln (?--------------------------------------------------------------------------------?);
writeln (?Для завершения нажмите <Enter>?);
readln;
end.