program TrafficLight;

uses
crt;

var
colorRed, colorYellow, colorGreen: integer;

procedure DrawTrafficLight(x, y: integer);
begin
gotoxy(x, y);
writeln(' ');
gotoxy(x, y + 1);
writeln('| |');
gotoxy(x, y + 2);
writeln('| |');
gotoxy(x, y + 3);
writeln('||');
end;

procedure SetColor(color: integer);
begin
textcolor(color);
end;

begin
clrscr;

colorRed := 12; // Red color
colorYellow := 14; // Yellow color
colorGreen := 10; // Green color

// Drawing the traffic light
DrawTrafficLight(10, 5);
DrawTrafficLight(25, 5);
DrawTrafficLight(40, 5);

// Red light
SetColor(colorRed);
gotoxy(15, 7);
write('o');

// Yellow light
SetColor(colorYellow);
gotoxy(30, 7);
write('o');

// Green light
SetColor(colorGreen);
gotoxy(45, 7);
write('o');

readln;
end.