Составьте программу в Pascal ABC которая нарисует светофор( простой, не мигающий) СРОЧНО даю 25 б.

program svetofor; uses graphabc;   begin setwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (90, 90, 210, 450 ); setpencolor (clred); setbrushcolor (clred); circle (150, 150, 50); setpencolor (clyellow); setbrushcolor (clyellow); circle (150, 260, 50); setpencolor (clgreen); setbrushcolor (clgreen); circle (150, 370, 50); setpencolor (clblack); setbrushcolor (clblack); rectangle (140, 450, 160, 600);    end