random dengan distribusi exponensial

pada program pascal.

program Random_exponensial;
uses wincrt;
var
i,n:integer;
lb : real;

function expon(lambda:real):real;   #membuat fungsi expon dengan parameter lamda
begin
expon :=-1/lambda*ln(random);  #rumus fungsi exponen
end;

begin
write ('input parameter Expon =');readln(lb);            #memasukkannilai parameter exponen yang dcoding lb
write ('pengulangan =');readln(n);              #mengidentifikasi banyaknya pengulangan
randomize;    #proses merandom data
for i:=1 to n do
begin
writeln(expon(lb):5:3);
end;
end.