program Phone;
uses crt;
var
x:longint;

begin
x:=0;
repeat
repeat
x:=x+1;
sound(2000);
delay(100);
nosound;
sound(1000);
delay(100);
nosound
until x=17;
x:=0;
delay(3000);
until keypressed;
nosound;
end.