uses

   GraphABC;

begin

   SetBrushColor(clGray);

   Rectangle(200, 25, 400, 375);

   SetBrushColor(clRed);

   Circle(300, 100, 45);

   SetBrushColor(clYellow);

   Circle(300, 200, 45);

   SetBrushColor(clGreen);

   Circle(300, 300, 45);

   DrawTextCentered(150, 0 , 450, 25, 'Соблюдайте правила дорожного движения');

end.