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