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

[ascatem]

come si imposta un programma con una funzione random che scelga un numero a caso tra 1 e 3 compreso ed escluso lo zero(solo 1, 2. 3)?


grazie.

[$$$]

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