Cделать в паскале светофор с поддержкою GraphABC, Ellipse и Rectangle.

uses graphABC;

procedure DrawLight(X, Y, R : Integer; C : Color);

begin

 Brush.Color := C;

 Circle(X, Y, R);

end;

begin

 Randomize;

 var V := Random(1, 3);

 var(C1,C2,C3):=(clWhite,clWhite,clWhite);

 case V of

   1 : C1 := clRed;

   2 : C2 := clYellow;

   3 : C3 := clGreen;

 end;

 DrawLight(Window.Center.X, Window.Height div 10 * 2, Window.Height div 7, C1);

 DrawLight(Window.Center.X, Window.Height div 10 * 5, Window.Height div 7, C2);

 DrawLight(Window.Center.X, Window.Height div 10 * 8, Window.Height div 7, C3);

end.

В Паскале