Нарисать алгоритм нахождения значения функции на pascal: y=(x2 + 3x -4 )/(x - 7)

Program V;
Var y, x: real;
Begin
writeln(‘значение функции y’);
x:=-4;
while x<=2 do
begin
y:=4*x^2-2*x+3 ;
x:=x+0,5;
writeln(y:16:4);
end;
End.