Надо! расширенный ответ дайте ​

Var     f: byte;     x: real; begin writeln('выберите тип функции: '); writeln('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); readln(f); while f < > 0 do     begin     write('введите x: '); readln(x);     case f of     1:         if x < 0 then writeln(x,'*(',x,') = ',x*x)         else writeln(x,'*',x,' = ',x*x);     2:         if x < 0 then writeln(x,'*(',x,')*(',x,') = ',x*x*x)         else writeln(x,'*',x,'*',x,' = ',x*x*x);     3:         if x < 0 then writeln('√',x,' = ',sqrt(-x),'i')         else writeln('√',x,' = ',sqrt(x));     4:         if x = 0 then writeln('ошибка: на ноль делить нельзя! ')         else if x < 0 then writeln('1/(',x,') = ',1/x)                   else writeln('1/',x,' = ',1/x);     end;     writeln;     writeln('выберите тип функции: ');     writeln('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');     readln(f);     end; end. пример работы программы: выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 1 введите x: -8 -8*(-8) = 64 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 3 введите x: 14 √14 = 3.74165738677394 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 4 введите x: 0 ошибка: на ноль делить нельзя! выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 4 введите x: 16 1/16 = 0.0625 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 0