uses graph,crt;
var gd,gm:integer;
    c:char;
label 0,2,3;
begin
initgraph(gd,gm,'c:\bp\bgi');
circle(320, 240, 100);
ellipse(320, 280, 180, 360, 60,50);
ellipse(320, 240, 180, 360, 20,50);
ellipse(280, 200,0,360, 40,5);
ellipse(360, 200,0,360, 40,5);
outtextxy (1,1,'сон(с) утро(у)');
outtextxy (1,10,'Press Esc to exit');
0:
c:=readkey;
if c = chr(27) then halt;
IF c = 'у' THEN GOTO 2;
IF c = 'с' THEN GOTO 3;
GOTO 0;
2:
setcolor(0);
ellipse(280, 200,0,360, 40,5);
ellipse(360, 200,0,360, 40,5);
setcolor(14);
ellipse (280, 200,360,0,30,10);
ellipse (360, 200,360,0,30,10);
circle (280, 200,10);
CIRCLE (360, 200, 10);
GOTO 0;
3:
setcolor (0);
ellipse (280, 200,360,0,30,10);
ellipse (360, 200,360,0,30,10);
circle (280, 200,10);
CIRCLE (360, 200, 10);
setcolor(14);
ellipse(280, 200,0,360, 40,5);
ellipse(360, 200,0,360, 40,5);
GOTO 0;
repeat;
until keypressed;
closegraph;
end.