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

uses graphabc,crt;const t=500;

beginsetwindowsize (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);

repeatsetbrushcolor (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.

Program sfetafor1;Uses GraphAbc;BeginSetWindowSize(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.