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

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

outtextxy (15,30,st);

str (speed,st);

outtextxy (120,20,st);

str (angle,st);

outtextxy (120,30,st);

setcolor (yellow);

line (20,230,27,215);

line (27,215,34,230);

line (27,215,27,197);

line (27,200,18,215);

line (27,200,33,195);

line (33,195,33,185);

circle (27,193,4);

setcolor (red);

circle (33,183,1);

setcolor (white);

setfillpattern (full,black);

shoot:=false;

exit:=false;

repeat

ch:=readkey;

case ch of

#0:begin

ch:=readkey;