Wklej sobie to do kompilatora turbo pascala. Jest to "syntezator" wykorzystujący głośnik komputera
program cos;
uses crt;
var d:char;
begin
clrscr;
writeln('Teraz naciskaj odpowiednie klawisze aby zagrac odpowiednie dzwieki ');
writeln('dzwiek C: q ');
writeln('dzwiek D: w ');
writeln('dzwiek E: e ');
writeln('dzwiek F: r ');
writeln('dzwiek G: t ');
writeln('dzwiek A: y ');
writeln('dzwiek H: u ');
writeln('dzwiek C2: i');
writeln('');
writeln('Jesli chcesz zakonczyc nacisnij "z"');
writeln('');
writeln('Jesli chcesz wyczyscic ekran nacisnij "c" ');
writeln('');
writeln('A wiec zacznijmy: ');
repeat
case readkey of
'q':begin sound(262);delay(100);nosound;end;
'w':begin sound(294);delay(100);nosound;end;
'e':begin sound(330);delay(100);nosound;end;
'r':begin sound(350);delay(100);nosound;end;
't':begin sound(392);delay(100);nosound;end;
'y':begin sound(441);delay(100);nosound;end;
'u':begin sound(494);delay(100);nosound;end;
'i':begin sound(523);delay(100);nosound;end;
'z':halt;
'c':begin clrscr;
writeln('Wybralej syntezator ');
writeln('');
writeln('Teraz naciskaj odpowiednie klawisze aby zagrac odpowiednie dzwieki ');
writeln('dzwiek C: q ');
writeln('dzwiek D: w ');
writeln('dzwiek E: e ');
writeln('dzwiek F: r ');
writeln('dzwiek G: t ');
writeln('dzwiek A: y ');
writeln('dzwiek H: u ');
writeln('dzwiek C2: i');
writeln('');
writeln('Jesli chcesz zakonczyc nacisnij "z"');
writeln('');
writeln('Jesli chcesz wyczyscic ekran nacisnij "c" ');
writeln('');
writeln('A wiec zacznijmy: ');
end;
else writeln('nacisnales nie ten klawisz co trzeba');
end;
until(d='z');
end.