С помощью паскаль абц нужно нарисовать сфетофор

Question

С помощью паскаль абц нужно нарисовать сфетофор

Answer 1

uses graphabc,crt;
const t=500;

begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (45, 45, 105, 225 );
setpencolor (clred);
setbrushcolor (clred);
circle (75, 75, 25);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (75, 130, 25);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (75, 185, 25);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (70, 225, 80, 300);
setbrushcolor (clDkGray); circle (75, 130, 25);
setbrushcolor (clgreen); circle (75, 185, 25);

repeat
setbrushcolor (clDkGray); circle (75, 185, 25);
setbrushcolor (clred); circle (75, 75, 25); delay(t);
setbrushcolor (clDkGray); circle (75, 75, 25);
setbrushcolor (clyellow); circle (75, 130, 25); delay(t);
setbrushcolor (clDkGray); circle (75, 130, 25);
setbrushcolor (clgreen); circle (75, 185, 25); delay(t);
until keypressed;

end.

Answer 2

Program sfetafor1;
Uses GraphAbc;
Begin
SetWindowSize(640,480);
ClearWindow(clWhite);
SetPenColor(clBlack);
SetPenWidth(3);
Rectangle(200,200,300,400);
FloodFill(250,300,clLtGray);
Circle(250,230,25);
Circle(250,290,25);
Circle(250,350,25);
FloodFill(250,235,clRed);
FloodFill(250,285,clYellow);
FloodFill(250,355,clGreen);
Line(250,200,250,150);
Line(250,150,100,150);
SetFontSize(14);
SetFontColor(clRed);
TextOut(100,125,'Красный свет-дороги нет');
End.