Developing.ru

Создать модуль , содержащий мелодию
до sound (523)
ре (587)
ми (659)
фа (698)
соль (784)
ля (880)

Убери названия нот вначале, в конце каждой строки поставь добавь ; delay(10000);
в начале программы допиши uses crt; - вот и все.

Хыиуду писал(а):Убери названия нот вначале, в конце каждой строки поставь добавь ; delay(10000);
в начале программы допиши uses crt; - вот и все.

.. а в конце - NoSound.
Да и Delay, пожалуй, поменьше стоит задавать. 10 сек - это как-то перебор, имхо