Var
z,n,y,x:real;
begin
Writeln('Введите значение переменной n');
Readln(n);
Writeln('Введите значение переменной y');
Readln(y);
Writeln('Введите значение переменной x');
Readln(x);
z:= abs(n)*(y-sqrt(abs(x)))*(x-(x/2)+sqr(x)-(5*x));
Writeln('z = ',z);
end.