uses crt;
var i: integer;
begin
for i:=200 to 2000 do
begin
 sound(i); delay(2);
end;
nosound;
end.