interacia

// среда решения Pascal ABC
Program tehnarit84820;
var
Y:real; // искомое значение
X:real; // задавемая переменная
begin
Write('Введите X=');
readln(X);
Writeln('Ответ Y =',Floattostr(Ln(Sqrt(Abs(X*X*X*X*X))+1)+Ln(Abs(3* X))));
end.