Вычислить значение у по формуле у-5х³-8х²+х-6 усли вводимое х нечетное вычислить пока у< 6000

Program dfgd;
var y:real;
x:integer;
begin
write('х=');
readln(x);
if (x mod 2) <> 0
then begin y:=5*sqr(x)*x+8*sqr(x)-x+6;
if y>6000
then writeln('y>6000')
else writeln('y=',y);
end
else writeln('x - четное число');
end.