Как исправить? код программы: uses crt; {раздел объявления внешних модулей} label m1, m2; var n: integer; x, y, b: real; p: byte; {признак выполнения пункта n1} begin clrscr; { очистка экрана } writeln('программа вычисления '); {вывод на экран меню} writeln('++'); writeln('| 1. ввод данных |'); writeln('| 2. вычисление функции и вывод результатов |'); writeln('| 3. завершение работы программы |'); writeln('++'); p: =0; m1: writeln('введите пункт меню'); readln(n); {ввод номера пункта меню} case n of 1: begin {ввод данных} m2: write('введите значение аргумента x='); readln(x); {проверка допустимого значения аргумента} if x = 8 then begin writeln('x не может быть равным 0 по условию'); goto m2; end; p: =1; {пункт n1 выполнен} end; 2: {вычисление значения функции} begin if p = 0 then writeln('данные не введены, выполните пункт n1') else begin {операторы вычисления и вывода значения функции} y : = sqr(x) + 4*x - 8; if x > 2 then y : = 1/y; writeln('при х=', x: 7: 2, ' y=', y: 7: 2) end; end; 3: exit {выход из программы} end; {end case} goto m1; end. {конец программы}