Помогите сделать в Паскале мигающий светофор (graphabc)Чтоб он норм работал

При каком событии он должен мигать?

Ну учитель сказал, вести допольнительную буковку (n), чтоб по очереди шло

Светло, цикл. Забавно.

Вот и дело, что мы цикл не проходили. Хз вообщем

Он сказал, обозначить типо 1,2,3 внести дополнительную буковку..

Для чего было так усложнять? "Буковка", как я сообразила, это переменная.

Да-да переменная. Ну потому что циклы еще не переходили..

Я светофор сделала

//обошлись без излишних переменных
uses graphABC;
begin;
Circle(100,100,50);
Circle(100,200,50);
Circle(100,300,50);
while true do
begin;
floodfill(100,100,clred);
sleep(1000);
floodfill(100,100,clwhite);
floodfill(100,200,clyellow);
sleep(1000);
floodfill(100,200,clwhite);
floodfill(100,300,clgreen);
sleep(1000);
floodfill(100,300,clwhite);
end;
end.