Napisz program w pascalu,który bedzie odtwarzał jakąś melodie.

program muzyczka; uses crt; // te dzwieki sa bardzo wkurzajace //bo pisze z glowy ale melodia jakas bedzie BEGIN while not eof do //program zatrzyma kombinacja ctr+c begin sound(2200); delay(100); sound(1200); delay(100); sound(3200); delay(100); sound(2500); delay(100); end; nosound; END.