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

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.