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

Write(' ');

Write('¦');

end;

GotoXY(1,24);

Write('L');

for i:=2 to 79 do

Write('=');

Write('-');

{ 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========================================¦');

end;

{*****DoWork*****}

procedure dowork(work:byte);

begin

case work of

1: begin

textcolor(white);

textbackground(blue);

gotoxy(39,2);write('T');

gotoxy(2,3);