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.