Zvuk v Pascalu (pozor zvlášť ohavné)

Následující program vyluzuje kvílivé zvuky.
Nic moc na poslech.
Čím je užitečný?

1. Dokumentuje využití procedury volané hodnotami.
2. Uvádí na scénu typ proměnné WORD.

program zvuk;

{Vzorový příklad pro procedury Delay, NoSound a Sound.}
{psáno na počest skupiny LuŠtěLa}
uses Crt;
var n : word;

procedure pipni (F, T : word);
{F jako Frekvence, T jako do, kterou to bude pištět na oné frekvenci}
{interval vhodných F je ideální zjistit experimentem nebo vygooglit}
 begin
   Sound(F); { Píp }
   Delay(T); { na T ms }
   NoSound; { Úleva! Blaho! }
 end;

begin

 for n:=220 to 520 do
{hodnoty odkud kam bude n možno experimentálně posunovat}
    begin
        pipni (n, 30);
        pipni (720-n, 30);
     end;
end.


úkol: napiš program, který zahraje kousek známé melodie:)