program hang_billentyuig;
uses crt;
begin
     sound(500);
     repeat until keypressed;
     nosound
end.