uses crt; var i:integer; begin repeat for i:=205 to 5000do begin sound(i); delay(20); end; nosound; until keypressed; end.