Програмування Pascal, Детальна інформація

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

device:=VGA;

mode:=VGAHi;

initgraph (device,mode,'');

cleardevice;

maxx:=getmaxx;

pnum:=1;

lnum:=1;

draw;

repeat

ramka;

ch:=readkey;

case ch of

#0:begin