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

Question

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

Answer 1

Program jwbdjd;
var x: String;
begin
writeln('Введите цвет светофора (красный, желтый, зеленый)');
readln(x);
if x='зеленый' then
writeln('На ',x,' цвет можно переходить')
else
writeln('На ',x,' цвет нельзя переходить');
end.