program kursovik;uses crt, graph;var j, help, i, work, button: byte; exitmenu, exitprog: boolean; actionprog, action: char; grmode, grdriver: integer; dat: array [1 .. 3] of real; posle: array [1 .. 100] of real; xcor, ycor: array [1 .. 3] of byte; mat, disp: array [1 .. 10] of real; mat0, disp0, dispmax, matmax, x: real;
{***** DrawHelp *****}procedure drawhelp (help: byte); begin textcolor (black); textbackground (white); gotoxy (1,25); case help of

0: write ( 'F1-Уст. F2-Ост-ти F3-Гістогр. F10-Меню (Alt-x)-Вихід

');

1: write ( 'Поставити/змінити параметри

');

2: write ( 'Переглянути послідовності

');

3: write (' Переглянути гістограму

');

4: write ( 'Вихід

');

5: write (' Esc-Закінчити зміна параметрів. BckSp-Змінити параметр.
F4-побудую. остан-ть');

6: write ( 'Натисніть Up або Down для перегляду або Esc для виходу

'); end; end;
{***** DrawWin *****}procedure drawwin; begin textcolor (white); textbackground (blue);
GotoXY (1,2);

Write ( 'р'); for i: = 2 to 79 do

Write ('=');

Write ('¬');

for i: = 3 to 23 do begin

GotoXY (1 , i1);

Write ('|'); for j: = 2 to 79 do

Write ( '');

Write (' | '); end;

GotoXY (1,24);

Write (' L '); for i: = 2 to 79 do

Write ( '=');

Write ('-');< br>(Gotoxy (39,2); write ( 'T');) gotoxy (39,24); write ('|'); for i: = 5 to 23 do begin gotoxy (39, i); write ( '| ') end; gotoxy (31,3); writeln (' Послідовності '); gotoxy (1,4);

write ('|============== ======================= T ========================== ====< br>==========|'); End;
{***** DoWork *****}procedure dowork (work: byte);begin case work of

1: begin textcolor (white); textbackground (blue); gotoxy (39,2); write ( 'T'); gotoxy (2,3); writeln ( 'Нормальний закон : | Експоненціальнийзакон: '); gotoxy (1,4);

write ('|=========================== ==========+==============================< br>==========|'); Drawhelp (5); textcolor (white); textbackground (blue); gotoxy (2,6); write ( 'Мат. Очікування:'); gotoxy (2, 8); write ( '
Дисперсія: '); gotoxy (xcor [2], ycor [2]); write (dat [2]: 2:1);

gotoxy (41,6); write (' Коефіцієнт: ' ); gotoxy (xcor [3], ycor [3]); write (dat [3]: 2:1)
; Gotoxy (xcor [1], ycor [1]); write (dat [1]: 2:1); i: = 1; repeat action: = readkey; case action of

# 27: exitpar: = true;

# 9: begin i: = i +1; if i