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

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

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

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

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

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