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

putimage (150,203-x1,p^,xorput);

putimage (300,203-x2,p^,xorput);

putimage (450,203-x3,p^,xorput);

inc (a);

if a=181 then a:=0;

inc (b);

if b=181 then b:=0;

inc (c);

if c=181 then c:=0;

x1:=round (120*(sin(a*pi/180)));

x2:=round (120*(sin(b*pi/180)));

x3:=round (120*(sin(c*pi/180)));

putimage (150,203-x1,p^,xorput);

putimage (300,203-x2,p^,xorput);

putimage (450,203-x3,p^,xorput);

if not keypressed then goto 10;

case readkey of

#27: exit:=true;

end;

until exit;

draw;

ramka;

end;

{**************** ОСНОВНАЯ ПРОГРАММА *****************}

begin