[fpc-pascal] random numbers negative

[Luis Fernando Del Aguila Mejía]

I have a doubt.
With the random function, Can you generate random numbers negative?

Begin
randomize;
Writeln (random (-127)) / / 0> = n> -127
End.

thanks.