program arv;
uses graph;
var a,b,c,x, min,vastus1,max,i,k,d,m,y:integer;
begin
d:=detect;InitGraph(d,m,'');
writeln('Kirjutage a: ');
readln(a);
writeln('Kirjuta b:');
readln(b);
writeln('Kirjuta c:');
readln(c);
writeln('Sisesta rada1:');
readln(i);
writeln('Sisesta rada2: ');
readln(k);
x:=i;
min:=a*i*i+b*i+c;
for x:=i to k do
begin
vastus1:=a*x*x+b*x+c;
if vastus1<min then min:=vastus1 ;
if vastus1>max then max:=vastus1;
end;
writeln('Vastus on: ',min);
writeln('Vastus on: ',max);
readln;
line(10,100,600,100);
line(25,1,25,210);
for x:=1 to 200 do begin
y:=a*x*x+b*x+c;
putpixel(x,y,white);
{readln;}
end;
readln;
closegraph;
end.