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

Предыдущий
вопрос Следующий
вопрос

Приведенный ниже пример программы на языке Pascal поможет пользователям понять, как правильно переходить дорогу на светофоре.

program TrafficLight
va
signal: string
begi
writeln('У вас красный свет! Не переходите дорогу!')
writeln('Подождите, пока загорится зеленый свет...')
repea
write('Введите цвет сигнала светофора (зеленый/красный): ')
readln(signal)
if (signal = 'красный') the
begi
writeln('Не переходите дорогу! Подождите зеленый свет.')
en
else if (signal = 'зеленый') the
begi
writeln('Можете переходить дорогу! Будьте осторожны и следите за движением автомобилей.')
en
els
begi
writeln('Некорректный ввод. Пожалуйста, введите цвет сигнала корректно (зеленый/красный).')
end
until (signal = 'зеленый')
end.

Эта программа предлагает пользователю ввести цвет светофора ("зеленый" или "красный") и в зависимости от этого цвета дает рекомендацию, можно ли переходить дорогу. При вводе "красный" программа выводит предупреждение о невозможности перехода, пока не загорится зеленый свет. При вводе "зеленый" программа дает совет перейти дорогу, но также указывает на необходимость быть осторожным. Если пользователь вводит что-то другое, программа просит ввести цвет снова.

Надеюсь, данная программа поможет пользователям понять, как правильно переходить дорогу на светофоре.