{ 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.