Составить алгоритм линейной структуры и написать программу:Вычислить значение...

$Y=(2p)^ \frac{1}{2}x^{x+1}e^{-x}e^{- \sqrt{w/2px}}= \sqrt{2p}\times x^{x+1}\times e^{-x-\sqrt{w/2px}}$

var
p, w, x, y: real;

begin
Write('Введите через пробел p, x, w: ');
Readln(p, x, w);
y := sqrt(2 * p) * exp((x + 1) * ln(x)) * exp(-x - sqrt(w / (2 * p * x)));
Writeln('Y=', y:0:6)
end.

Тестовое решение:

Введите через пробел p, x, w: 3 1.456 4.7
Y=0.690109