Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора

program itdxvvd;var x: String;beginwriteln('Введите цвет светофора (красный, желтый, зеленый)');readln(x);if x='зеленый' thenwriteln('На ',x,' цвет можно переходить')elsewriteln('На ',x,' цвет нельзя переходить');end.