Составить программу в Pascal ABC которая нарисует светофор и букву Р.

Так?

uses graphabc;

begin

setwindowsize (245,340) ;

setbrushcolor (clblack) ; rectangle (20,20,120,320) ;

setbrushcolor (clred) ; circle (70,70,50) ;

setbrushcolor (clyellow) ; circle (70,170,50) ;

setbrushcolor (clgreen) ; circle (70,270,50) ;

line (150,20,150,320) ; arc (150,95,75,-90,90)

end.