castilho

Protótipo: function random [(x : longint)]: longIntOuReal;

Descrição: Se x for recebido então retorna um número longint y aleatório 0 <= y < x. Se x não for recebido, retorna um número real y aleatório 0 <= y < 1.

Exemplo:

  
program exemploRandom;
 begin
    randomize;
    writeln(random(3));  // Imprimira 0, 1 ou 2
 end.