Program TestLIBY;// для тестирование бибилиотек
uses thread10;
var  pp:array[1..11] of integer;
i:integer;
procedure cls;
begin
repaint;
setcolor(255,255,255);
fillrect(0,0,240,320);
setcolor(0,0,0);
end;

procedure p1();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[1]),10,20);
pp[1]:=pp[1]+1;
end;end;

procedure p2();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[2]),10,40);
pp[2]:=pp[2]+2;
end;end;

procedure p3();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[3]),10,60);
pp[3]:=pp[3]+4;
end;end;

procedure p4();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[4]),10,80);
pp[4]:=pp[4]+8;
end;end;

procedure p5();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[5]),10,100);
pp[5]:=pp[5]+16;
end;end;

procedure p6();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[6]),10,120);
pp[6]:=pp[6]+32;
end;end;

procedure p7();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[7]),10,140);
pp[7]:=pp[7]+64;
end;end;

procedure p8();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[8]),10,160);
pp[8]:=pp[8]+100;
end;end;

procedure p9();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[9]),10,180);
pp[9]:=pp[9]+200;
end;end;

procedure p10();
begin
while true do 
begin
cls;
drawtext(integertostring(pp[10]),10,200);
pp[10]:=pp[10]+400;
end;end;

procedure vkl;
begin
for i:=1 to 10 do
begin
init(i);
start(i);
end;
end;
Begin
while true do begin
	 if getkeyclicked=ke_key2 then begin
for i:=1 to 10 do
begin
init(i);
start(i);
end;
while true do begin
cls;
drawtext(integertostring(pp[11]),10,300);
pp[11]:=pp[11]+11;
repaint;
if getkeyclicked=ke_key6 then break;
end;
end;
 if getkeyclicked=ke_key5 then vkl;
  if getkeyclicked=ke_key6 then begin stop(10);stop(9);stop(8); end;
 if getkeyclicked=ke_key1 then start(1);
	end;
End.