Паскаль. Сделайте пожалуйста светофор, самый простой. Скиньте скрин или напишите код. Дам...

Если для того, чтобы разобраться в процедурах, то вот самый простой код, рисующий черный прямоугольник и три круга.
program sneg;
uses graphABC;
begin
setwindowsize(300,500);
setbrushcolor(clblack);
fillRectangle(100,100,200,400);

setbrushcolor(clred);
circle(150,150,40);

setbrushcolor(clyellow);
circle(150,250,40);

setbrushcolor(clgreen);
circle(150,350,40);
end.