Игра - Моделирование бросания игральных костей с неравномерным выпадением сторон

Содержит только исходный код (листинг главной программы, графисеского модуля, модуля меню, модуля имитации бросания кубиков).
Строятся графики (гистограмма, график устойчивости)
Реазлизовано граффическое меню
..

rogram Main;
Uses Crt, Menumd, ImGame, Grafic;

Procedure Podgot(i:byte); {PodgotovkaDannix}
begin
window(10,7,70,7);
textbackground(red);
clrscr;
write(b1[i]);
window(10,8,70,24);
textbackground(lightgray);
clrscr;
end;

const n:array[1..6] of longint=(100,500,1000,5000,10000,50000);

var
m, mm: byte;
flag1: boolean;
kb1,kb2,rez: kubik;
i: integer;
op,op1: massiv;
c,z:byte;
num: longint;
...

Неравномерность выпадения - вводится пользователем с клавиатуры.

Исходные коды во вложении.