Помогите 3 ден не могу решить, буду благодарен за помощь case x of 1: write(x); 2:...

Question

Помогите 3 ден не могу решить, буду благодарен за помощь
case x of
1: write(x);
2: write(x+1);
else read(m);
end;

Answer 1

Если х единица выводим x (на экране будет 1)
если x двойка выводим x+1 (на экране будет 2)
иначе читаем(вводим) m
конец.