[turbo pascal] funzione random.-... come?

[$$$]

Randomize;
numero := Random(2)+1;