[Konrad]

Сообщение от baff

мне нужно посчитать p и p*.

Так прога уже их считает.

Кстати, у тебя там интересно тем что в конце ты сравниваешь
if random<=1.1 then inc(m);

Не трудно догадаться что получишь 1 всегда