procedure GenerateRandomPhraseNumber;

begin

  randomnumber := Random(0) + result;
  writeln(randomnumber);

end;