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

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