Ответ:
В языке pascal есть такие конструкции как if, case на самом деле способов много, стоит лишь подумать.
Объяснение: