Tiếng rù rù.

PROGRAM Ru_ru ;

USES Crt ;

VAR

Counter : INTEGER ;

BEGIN

FOR Counter := 1 TO 30 DO

BEGIN

Sound ( 100 ) ;

Delay ( 30 ) ;

Nosound ;

Delay ( 30 ) ;

END ;

END.