Umístnení souboru www.TrSek.com/zadania/melody.pas

{ MELODY.PAS                                     Copyright (c) Pheo }
{ Program zahrá 5 tónov rovnakej dåžky (náhodne zvolenej).          }
{                                                                   }
{ Datum:20.04.2005                             http://www.trsek.com }

program melody;
uses crt;
var i:integer;

begin
  clrscr;
  randomize;
  for i:=1 to 10 do
    begin
       sound(100*i+random(640));
       delay(30000);
       nosound;
    end;

  repeat until keypressed;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com