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

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