Составьте программу в 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