Решить уравнение в турбо Паскале(написать программу)

varx: integer;y: real;beginreadln(x);if x < -3 theny := (7*x*x - 1) / (2*x + 6)elsey:=4*x*x - 5;writeln(y);end.