Рожица.
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) thenhalt-
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.