program suono(input,output); uses crt; (* inizializza il suono *) var a:integer; begin sound(2000); (* frequenza *) delay(5000); (* durata ( 1000 = 1 secondo ) *) nosound (* disattiva il suono *) end.