Написать программу в паскаль по принципу работы светофора. чтобы выдавал цвета жёлтый зелёный красный

Uses crt;
begin
TextBackGround(yellow);
TextBackGround(green);
TextBackGround(red);
end.