Помогите срочно пожалуйста, составьте программный код для решения системы. Найдите у для х=5​

var

y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

if x>0 then

writeln('y = ',(2*sqr(x)*x-1.7)/(x+8))

else

if x=0 then

writeln('y = ',0)

else

if x<0 then

writeln('y = ',1/7*x-4);

end.