program Svetofor; { 12.11.2012 }
{ 17.11.2012 }
uses
  Graph;
const
  x0 = 100;
  y0 = 100;
  R = 50;
var
  mode, driver: integer;
  pausa: integer;
  i: integer;

{----------------------------------------------------------------}
procedure Light(numBulb: integer; color: word);
begin
  SetFillStyle(SolidFill, color);
  FillEllipse(x0, y0 + (numBulb - 1) * 2 * R, R, R);
end;
{----------------------------------------------------------------}
begin
  driver := VGA;
  mode := VGAHi;
  InitGraph(driver, mode, '');
  pausa := 1000;
  { неживой сломанный светофор }
  SetColor(White);
  Circle(x0, y0, R);
  Circle(x0, y0 + 2 * R, R);
  Circle(x0, y0 + 4 * R, R);
  { неживой сломанный светофор, который светит }
  Light(1, Red);
  Light(2, Yellow);
  Light(3, Green);
  readln;
  CloseGraph;
end.