Програмування Pascal

I

I

?

?

?

kd

;

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;

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