Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- begin
- var st := LowerCase(ReadLnString('Введите цвет светофора, информацию о котором Вы хотите узнать:'));
- case st of
- 'красный': WriteLn('Стой');
- 'желтый', 'жёлтый': WriteLn('Внимание');
- 'зеленый', 'зелёный': WriteLn('Пойдем');
- else WriteLn('Упс...ошибочка...:(');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement