var x,summa:real; begin if x<5 then write('Введите число x'); readln(x); Summa:=exp(0*ln(x)); Write('Ответ:',summa); end. Программу делал через паскаль