Методика підрахунку прямокутників різної форми

readkey;

setcolor (green);

bar (11,11,maxx-21,264);

bar3d (10,250,maxx-20,265,0,topon);

setcolor (white);

st:=('Вибрати: '#24#25' - силу кидка, '#27#26' - кут кидка. Enter - кидок. Esc - вихiд.');

outtextxy (30,255,st);

setfillpattern (brick, red);

setcolor (green);

bar (11,235,maxx-21,248);

setfillpattern (grass, green);

setcolor (green);

bar (11,230,maxx-21,235);

setfillpattern (full,black);

sx:=230+random (300);

len:=30+random (50);

bar (sx,230,sx+len,235);

angle:=45;

speed:=50;

setcolor (white);

st:= 'Сила кидка: ';

outtextxy (15,20,st);

st:= 'Кут кидка: ';

outtextxy (15,30,st);

str (speed,st);