program superman;
uses crt,graph;
var dr,dm,x,y,i:integer;
BEGIN
dr:=detect;
initgraph(dr,dm,'d:\bp70\bgi');
SETCOLOR(2);
ellipse(290,250,0,360,120,70);
line(290,230,330,185);
line(290,230,250, 185);
arc(170,250,75,270,15);
arc(410,250,270,92,15);
arc(350,235,60,140,19);
arc(230,235,60,140,19);
arc(290,250,0,180,10);
arc(290,250,210,330,30);


circle(230,235,11);
circle(230,235,5);
circle(350,235,11);{Правый глазик}
circle(350,235,5);


for i:=1 to 10 do
begin
setcolor(0);
circle(350,235,11);{Правый глазик}
circle(350,235,5);
delay(500);

setcolor(2);
line(350,235,360,235);
delay(500);

setcolor(0);
line(350,235,360,235);
delay(500);

setcolor(2);
circle(350,235,11);{Правый глазик}
circle(350,235,5);
delay(500);
end;
readln;
closegraph;
END.