{* Мелодия *}

Unit MELOD;
Interface
Implementation
Begin
 writeln('Звуковой проигрыш мелодии.');
End.

Program muz;

Uses melod.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Begin
  delay(1); {1}
  sound(220);
  delay(400 * 5); {2}
  sound(370);
  delay(400 * 5); {3}
  sound(392);
  delay(400 * 5); {4}
  sound(370);
  delay(400 * 5); {5}
  sound(311);
  delay(400 * 5); {6}
  sound(330);
  delay(400 * 5); {7}
  sound(494);
  delay(800 * 5); {8}
  sound(277);
  delay(400 * 5); {9}
  sound(554);
  delay(400 * 5); {10}
  sound(494);
  delay(400 * 5); {11}
  sound(440);
  delay(400 * 5); {12}
  sound(415);
  delay(400 * 5); {13}
  sound(440);
  delay(400 * 5); {14}
  sound(587);
  delay(800 * 5); {15}
  sound(659);
  delay(400 * 5); {16}
  sound(587);
  delay(400 * 5); {17}
  sound(554);
  delay(400 * 5); {18}
  sound(494);
  delay(400 * 5); {19}
  sound(440);
  delay(400 * 5); {20}
  sound(392);
  delay(400 * 5); {21}
  sound(370);
  delay(400 * 5); {22}
  sound(330);
  delay(400 * 5); {23}
  sound(494);
  delay(800 * 5); {24}
  sound(277);
  delay(800 * 5); {25}
  sound(294);
  delay(1200 * 5); {26}
  nosound;
  delay(400 * 5);
  nosound;
  readln; {* Ждем подтверждения пользователя *}
End.