Напишите алгоритм работы российского светофора красный желтый и зелёный цвета

uses crt;

var k: char;

begin

repeat

textcolor(0);

clrscr;

writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');

readln(k);

clrscr;

case k of

'1': begin

    textcolor(2);

    write('красный');

    readln

    end;

'2': begin

    textcolor(14);

    write('желтый');

    readln

    end;

'3': begin

    textcolor(12);

    write('зеленый');

    readln

    end;

else exit;

end;

until not(k in ['1'..'3']);

end.

вроде так

объяснение: