Песни о Паскале

var T1, T2, T3 : integer;
begin
Readln (T1, T2, T3);       { «Динамо», «Спартак», «Зенит» }
if (T1>T2) and (T1>T3)
then begin
      Writeln('1.Динамо');
      if T2>T3
      then begin
      Writeln('2.Спартак');
      Writeln('3.Зенит');
      end
      else begin
      Writeln('2.Зенит');
      Writeln('3.Спартак');
      end
      end
else begin
      if (T2>T1) and (T2>T3)
      then begin
      Writeln('1.Спартак');
      if T1>T3
      then begin
      Writeln('2.Динамо');
      Writeln('3.Зенит');
      end
      else begin
      Writeln('2.Зенит');
      Writeln('3.Динамо');
      end
      end
      else begin
      Writeln('1.Зенит');
      if T1>T2
      then begin
      Writeln('2.Динамо');
      Writeln('3.Спартак');
      end
      else begin
      Writeln('2.Спартак');
      Writeln('3.Динамо');
      end
      end
      end;
Readln;
end.

Здесь уже 45 строк, что втрое больше, чем для двух команд. С добавлением последующих команд программа продолжит разбухать, как снежный ком. Для четырех команд она станет длиннее ещё в 4 раза (180 строк), для пяти – ещё в 5 раз (900 строк) и так далее. Дойдя до шестнадцати команд, мы насчитаем в программе триллионы строк. А ведь триллион – это «всего лишь» миллион миллионов! Скорей свернем с этой гибельной тропы, пока снежная