uses crt;
var
nom,fs1:string;
x1,ymax,ymin:real;
f1,f2,at,bt,ct,a,b,c,t,viga,viga1:integer;
begin
 clrscr;
 writeln('Palun,sisesta oma väärand.');
 readln(nom);
 for t:=1 to length(nom) do
  begin
   if copy(nom,t,2)='x#' then at:=t-1;
   if (copy(nom,t,1)='x') and (copy(nom,t+1,1)<>'#') then bt:=t-1;
   if copy(nom,t,1)=' ' then ct:=t+1;
  end;
   val(copy(nom,1,at),a,viga);
   val(copy(nom,at+4,bt-4),b,viga);
   val(copy(nom,bt+3,ct-2-bt-2),c,viga1);
     delete(nom,1,ct-1);
   for t:=1 to length(nom) do
    if copy(nom,t,1)=';' then fs1:=copy(nom,1,t-1);
   val(fs1,f1,viga);
   val(copy(nom,length(fs1)+2,length(nom)),f2,viga);
if a=0 then
begin
if b<0 then
 begin
  ymax:=(b*f1+c);
  ymin:=(b*f2+c);
 end
 else
 begin
  ymax:=(b*f2+c);
  ymin:=(b*f1+c);
 end;
end
else
begin
 if (a*f1*f1+b*f1+c)>=(a*f2*f2+b*f2+c) then
 begin
  ymax:=(a*f1*f1+b*f1+c);
  ymin:=(a*f2*f2+b*f2+c);
 end
 else
 begin
  ymax:=(a*f2*f2+b*f2+c);
  ymin:=(a*f1*f1+b*f1+c);
 end;
x1:=-b/(2*a);
if ((x1>f1) and (x1<f2)) and (a>0) then
ymin:=(a*f1*f1+b*f1+c);
if ((x1>f1) and (x1<f2)) and (a<0) then
ymax:=(a*f2*f2+b*f2+c);
end;
if f1>f2 then writeln('Sa olid nii rumal , et sissenesid vale piirkond! Tee seda uuesti !')
else
writeln('Minimum on ',ymin:1:2,'   Maximum on ',ymax:1:2);
readln;
end.