[Turbo Pascal] Lois de probabilités

Bonjour à tous!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 PROGRAM exo ; USES CRT ; const VAR FUNCTION X(a:real):REAL; BEGIN X:=RANDOM*a; END; BEGIN Readln(a); u:=X(a); v:=a-u; w:=u; IF u>v THEN w:=v; t:=u; IF u<v THEN t:=v; FOR k:=1 TO n DO y[k]:=X(a); END.
Soient U,V,W et T les variables aléatoires réelles égales aux valeurs se trouvant dans les variables u,v,w et t du programme Turbo Pascal ci-dessus. Quelles sont les lois suivies par U,V,W et T?
Il me semble que U est une loi uniforme, mais je bloque pour le reste.

Ensuite, il s'agit de compléter le programme pour que Z soit la variable aléatoire égale au minimum des variables y[1],y[2],...,y[n].

Merci d'avance de votre aide!