Language:
Русский
English
{Delay.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Delay, NoSound, and Sound procedures.}
uses Crt;
begin
Sound(220); { Beep }
Delay(200); { For 200 ms }
NoSound; { Relief! }
end.