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

case ch of

#77: begin

dec (angle);

if angle < 0 then angle:=0;

str (angle,st);

bar (120,30,140,40);

outtextxy (120,30,st);

end;

#75: begin

inc (angle);

if angle >90 then angle:=90;

str (angle,st);

bar (120,30,140,40);

outtextxy (120,30,st);

end;

#80: begin

dec (speed);

if speed < 0 then speed:=0;

str (speed,st);

bar (120,20,145,29);

outtextxy (120,20,st);

end;

#72: begin

inc (speed);

if speed >100 then speed:=100;