Напишите программу в паскале y=-x^2+x-9,еслиx>=8 1/((x^4)-6) если x<8

Предыдущий
вопрос Следующий
вопрос

program equation;

var x, y: real;

begin
writeln('Enter the value of x: ');
readln(x);

if x >= 8 then
begin
y := -sqr(x) + x - 9;
end
else
begin
y := 1 / (power(x, 4) - 6);
end;

writeln('The value of y is: ', y);
end.