Написать, программу и блок схему для этого уравнения на pascal abc.

var

x, y: real;

begin

write('введите значение x=');

readln(x);

y := Power(Exp(2/3 - x), 1/5) / Sqrt(Power(x, 2) + Power(x, 4) + Ln(Abs(x - 3.4)));

writeln(y);

end.

Объяснение:

Делал в PascalABC.NET

Вот значения этой функции в трёх точках:

при x=-50    f(x)=10.0652313494729

при x=0    f(x)=1.0328923618595

при x=1    f(x)=0.551686948045355