Помогите студенту

[маринаник]

Помогите студенту

смотрите пожалуйста файл

 

[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.

 

[маринаник]

спасииибо тебе большое!!!!))