uses graph,crt;
var gd,gm:integer;
c:char;
label 0,2,3,4;
begin
initgraph(gd,gm,'c:\bp\bgi');
setcolor(15);
CIRCLE (320, 220,10);
CIRCLE (320, 240,10);
CIRCLE (320, 260,10);
outtextxy(10,10,'красный(к) желтый(ж) зеленый(з) - маленькие буквы');
outtextxy(10,20,'Выход - Esc');
0:
c:=readkey;
if c=chr(27) then halt;
IF c = 'к' THEN GOTO 2;
IF c = 'ж' THEN GOTO 3;
IF c = 'з' THEN GOTO 4;
GOTO 0;
2:
setfillstyle(1,12);
floodfill(320, 220, 15);
setfillstyle(1,0);
floodfill (320, 240, 15);
floodfill (320, 260, 15);
GOTO 0;
3:
setfillstyle(1,14);
floodfill (320, 240,15);
setfillstyle(1,0);
floodfill (320, 260,15);
floodfill (320, 220,15);
GOTO 0;
4:
setfillstyle(1,10);
floodfill(320, 260, 15);
setfillstyle(1,0);
floodfill (320, 220, 15);
floodfill (320, 240, 15);
GOTO 0;
end.