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

uses graphabc, crt;

const t=500;

begin

setwindowsize (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) ;

repeat

setbrushcolor (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.

Program sfetafor1;

Uses GraphAbc;

Begin

SetWindowSize (640,480) ;

ClearWindow (clWhite) ;

SetPenColor (clBlack) ;

SetPenWidth (3) ;

Rectangle (200,200,300,400) ;

FloodFill (250,300, clLtGray) ;

Circle (250,230,25) ;

Circle (250,290,25) ;

Circle (250,350,25) ;

FloodFill (250,235, clRed) ;

FloodFill (250,285, clYellow) ;

FloodFill (250,355, clGreen) ;

Line (250,200,250,150) ;

Line (250,150,100,150) ;

SetFontSize (14) ;

SetFontColor (clRed) ;

TextOut (100,125,'Красный свет-дороги нет') ;

End.