18.1.1

program nl_18_1_1; //Задаём имя программы

const       //Объявляем константы

A=1.5;

B=2;

C=2.5;

function qroot(q:real):real; //Объявляем функцию вычисления корня 3 степени

begin            //Начало тела функции

//Метод вычисления кубического корня с помощью функций экспоненты и логарифма

//Ветвление программы, как логарифм для отрицательных чисел не определен

if q=0 then  //Ветвление. 1 - Проверка на ноль (логарифм из 0 - бесконечность)

qroot:=0 else //В противном случае

if q>0 then  //Для положительного подкоренного выражения

qroot:=exp(ln(q)/3) else //В противном случае

qroot:=-exp(ln(-q)/3); //Для отрицательного подкоренного выражения

end;          //Конец тела функции

var x:real; //Объявляем переменную x

begin    //Начало тела программы

writeln('Введите x:'); //Вывод сообщения для пользователя

readln(x);      //Ввод х из консоли

writeln('y = ', sqrt(x+sqrt(x-A*C*qroot(B*x))):0:10); //Вывод значения функуии y(x)

end. //Конец тела программы