Программирование с использованием генератора случайных чисел

Write (' Esc-Закончить изменение параметров. BckSp-Изменить параметр.Write ('г') ; for i:=2 to 79 do.') ; end; end.{*****DrawWin*****} procedure drawwin; begin textcolor (white) ;textbackground (blue).Write (' ').Write ('¦') ; end.==========¦') ; end.{*****DoWork*****} procedure dowork (work:byte) ; begin case work of.Дисперсия:') ;gotoxy (xcor [2] ,ycor [2]) ;write (dat [2] :2:1).#9: begin i:=i+1; if i.