звук в Паскале Опции

[Jarum]

помогите, срочно нужна задача с какой-нибудь мелодией, я в Паскале так себе, не очень, но и не совсем ... , а вот в нотах не шарю, короче помогите, кто может... PLEASE!!!!!!!

[klem4]

В следующий раз, пожалуйста, сначала воспользуйся поиском: Sound

[Sto]

Вот такая примитивная програмка

Uses
   Crt;
Procedure Zvuk(n:Integer);
Begin
   Sound(n);
   Delay(20000);
   NoSound;
End;

Begin
   Zvuk(262);
   Zvuk(264);
   Zvuk(330);
   Zvuk(394);
   Zvuk(392);
   Zvuk(440);
   Zvuk(495);
   Zvuk(523);
End.

[Гость]

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!