графика в Pascal ABC

[Анна_]

Дана окружность, представляющая собой кольцевую железную дорогу, имеющую определенный радиус. По дороге происходит движение поездов. Каждый поезд характеризуется своей скоростью движения. Но кольцевой дороге расположены светофоры. Светофор показывает:
• красный свет, если на участке от него до следующего светофора имеется хотя бы один поезд
• желтый свет, если поезд имеется на втором от него участке
• зеленый, если на двух ближайших участках поездов нет.
Скорость движения поезда определяется по следующему правилу:
• едет с половинной скоростью, если пересек светофор не желтый
• едет с полной скоростью, если на зеленый
• стоит перед светофором, если красный.
(дописать код...)

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.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Антон-Царевич]

а что насчёт rgb цвета?