Написать программу, которая использовает оператор while решение уравнения : y = 1- x + x * x / 2 + 5x, при -5 < x < 6.
С оъяснением пожалуйста помогите.

a, b, c, d: integer;

x1, x2: real;

begin

readln(a);

readln(b);

readln(c);

d:=(b*b)+(-4*a*c);

if d>0

then begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln(x1);

writeln(x2);

end;

if d=0

then begin

x1:=(-b/2*a);

x2:=0;

writeln(x1);

writeln(x2);

end;

if d<0

then begin

write('корней нет');

end;

end.

Вот как то так