закон распределения Эрланга.

[Lenr88]

нужен код на паскале который показывает закон распределения Эрланга в СМО. k=2
Есть на С++, но я его не знаю!((
код на с++

double ravno() {
return(rand()%1000)*0.001;
}

double erlang(double d)
{ int k=2;
int p;
double x;
x=0;
for (p=0; p<k; p++)
{
x=-1*pow(d,-1)*log(ravno()+0.0001);
}return x;