светофор

[zanik]

Привет. У меня тут такая проблемка мне в паскале нужно сделать светофор
, ну как положено чтобы и моргал, но я незнаю как это сделать. Сам светофор то я нарисовал. Вот код:

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.


Сделайте плиз так чтобы он заморгал.Очень нада =)))
Заранее Спасибо

[rubius2008]

program svetofor;
uses graphabc,crt;
const t=500;

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);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50);

repeat
setbrushcolor (clDkGray); circle (150, 370, 50);
setbrushcolor (clred);       circle (150, 150, 50); delay(t);
setbrushcolor (clDkGray);    circle (150, 150, 50);
setbrushcolor (clyellow); circle (150, 260, 50); delay(t);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50);  delay(t);
until keypressed;

end.

[zanik]

спасибо, но чегото неработает. а ты в абц ее делал?

[zanik]

скачал другой паскаль и все заработало, спасибо огромное.
Если нетрудно обьясните доступно основы создания светофора=))
а то мне нада потом будет обьяснить как я его сделал