uses
crt,
graph;
var
x1,a,b,c,f1,f2,k:real;
x2,x,y,draiver, mood,x_ekstr,y_ekstr: integer;
begin
 writeln('Enter parameters of your binimonal equation');
 readln(a,b,c);
 writeln('Enter area');
 readln(f1,f2);
 x_ekstr:=round(-b/(2*a));
 if (x_ekstr<f1) or (x_ekstr>f2) then
    begin
      if (a<0) then
      begin
        if (x_ekstr<f1) then x_ekstr:=round(f2) else x_ekstr:=round(f1);
      end;
      if (a>0) then
      begin
        if (x_ekstr<f1) then x_ekstr:=round(f1) else x_ekstr:=round(f2);
      end;
   end;
 writeln(x_ekstr);
 y_ekstr:=-round(a*x_ekstr*x_ekstr+b*x_ekstr+c);
 x_ekstr:=round(x_ekstr*600/(f2-f1));

 writeln(x_ekstr,' ',y_ekstr);
 readln;
 draiver:=detect;
 InitGraph(draiver, mood, '');
 line(0,y_ekstr+480,600,480+y_ekstr);
 line(0-round(f1*600/(f2-f1)),0,0-round(f1*600/(f2-f1)),480);
 k:=600/(f2-f1);
 x1:=f1;
 repeat
  x:=round(600*x1/(f2-f1));
  y:=round((a*x1*x1+b*x1+c));
  x1:=x1+0.01;
  putpixel(x-round(f1*600/(f2-f1)),480-y_ekstr-y,red);
 until x1>=f2;
 readln;
 closegraph;
end.