program speak;

uses crt;

var	i,j: integer;


procedure th;
begin
	for i:=1 to 5 do
	begin
		sound(300);
		delay(1);
		sound(2000+random(1000));
		delay(1);
		sound(2000+random(1000));
		delay(1);
		nosound;
		delay(13);
	end;
	nosound;
end;
procedure d;
begin
	delay(20);
	sound(1000);
	delay(1);
	sound(600);
	delay(2);
	sound(400);
	delay(3);
	sound(300);
	delay(4);
	sound(200);
	delay(5);
	sound(100);
	delay(6);
	nosound;
end;
procedure dg;
begin
	sound(200);
	delay(5);
	sound(100);
	delay(6);
	nosound;
	for i:=1 to 4 do
	begin
		sound(300);
		delay(1);
		sound(3000+random(1000));
		delay(1);
		sound(3000+random(1000));
		delay(1);
		nosound;
		delay(13);
	end;
	nosound;
end;
procedure v;
begin
	for i:=1 to 5 do
	begin
		sound(300);
		delay(1);
		for j:=1 to 8 do
		begin
			sound(4000+random(3000));
			delay(1);
		end;
		nosound;
		delay(7);
	end;
	nosound;
end;
procedure s;
begin
	for i:=1 to 70 do
	begin
		sound(5000+random(4000));
		delay(1);
	end;
	nosound;
end;
procedure sh;
begin
	for i:=1 to 150 do
	begin
		sound(2000+random(1000));
		delay(1);
	end;
	nosound;
end;
procedure t;
begin
	delay(40);
	for i:=1 to 10 do
	begin
		sound(3000+random(4000));
		delay(1);
	end;
	nosound;
end;

procedure ht;
begin
	delay(20);
	for i:=1 to 10 do
	begin
		sound(2000+random(1000));
		delay(1);
	end;
	nosound;
end;

procedure k;
begin
	delay(30);
	for i:=1 to 16 do
	begin
		sound(1000+random(1000));
		delay(1);
	end;
	nosound;
end;

procedure o;
begin
	for i:=1 to 8 do
	begin
		sound(740);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure r;
begin
	for i:=1 to 8 do
	begin
		sound(900);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure eh;
begin
	for i:=1 to 6 do
	begin
		sound(1500);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure er;
begin
	for i:=1 to 14 do
	begin
		sound(700);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure ee;
begin
	for i:=1 to 8 do
	begin
		sound(2000);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure a;
begin
	for i:=1 to 8 do
	begin
		sound(1100);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure ah;
begin
	for i:=1 to 8 do
	begin
		sound(900);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure eeee;
begin
	for i:=1 to 12 do
	begin
		sound(2200);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure ai;
begin
	ah;
	for i:=1 to 8 do
	begin
		sound(800+i*100);
		delay(1);
		nosound;
		delay(15);
	end;
	eeee;
end;

procedure m;
begin
	for i:=1 to 10 do
	begin
		sound(40000);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;

procedure n;
begin
	for i:=1 to 10 do
	begin
		sound(65);
		delay(1);
		nosound;
		delay(15);
	end;
	nosound;
end;



procedure p;
begin
	delay(40);
	sound(200);
	delay(3);
	sound(100);
	delay(4);
	sound(65);
	delay(6);
	nosound;
end;

begin
	ee;m;er;dg;eh;n;s;ee;

	delay(200);

	ee;m;er;dg;eh;n;s;ee;

	delay(200);

	ee;m;er;dg;eh;n;s;ee;

	delay(300);

	ai;delay(60);a;m;delay(50);p;eeee;delay(10);s;eeee;

	delay(300);

	ai;delay(60);s;eeee;k;delay(60);r;ee;v;eh;n;dg;

	delay(300);

	th;ee;s;delay(50);ee;s;delay(30);er;delay(30);
	r;eeee;a;r;delay(60);ee;m;er;dg;eh;n;s;ee;

end.