Ganarateur d'un nombre aleatoire

program SansTitre;

const PAS=153243;
const GENERATEUR=4123;
var CURSEUR:integer;


function aleatoire(a,b:integer):integer; // nombre compris entre a et b
begin
CURSEUR:=CURSEUR+PAS;
result:=a+ (CURSEUR mod GENERATEUR) mod (b-a);
end;

var i:integer;
begin
CURSEUR:=17;

for i:=1 to 50 do
    writeln(aleatoire(0,9));

writeln; write('Fin du programme. Appuyer sur Entree pour terminer'); readln;
end.

program SansNom;

uses dos;

var memoire:real;

function random:real; // renvoie un nombre entre 0 et 1
var h,m,s,c:word; u,v,w,x,y:real; s1,s2:string; i:integer;
begin
gettime(h,m,s,c);
memoire:=(memoire*17*c)/7451;
u:=h*m+s+c;
v:=h+m*s+c;
w:=h+m+s*c;
x:=u*v+w;
y:=u+v*w;

str(x*y*memoire,s1);
s2:='0.';
for i:=1 to length(s1) do
    if (s1[i]>='0') and (s1[i]<='9') then s2:=s2+s1[i];
val(s2,result);
end;

var i:integer;
begin
memoire:=1;

for i:=1 to 15 do
    writeln(random:0:10);

writeln; write('Fin du programme. Appuyer sur Entree pour terminer'); readln;
end.