4pr3.pas

var
   a, b, c : double;
    Xn, Xk, dX, Fx, x : double;
    g, h, j : byte;
   expr, f : integer;

begin
   readln(a, b, c, Xn, Xk, dX);
    g := trunc(a);
    h := trunc(b);
    j := trunc(c);
   expr := (g xor h) and not(g or j);
   x := Xn;

   while x <= Xk do
      begin
        f := 1;
        if (x = 0) and (b <> 0) then
             Fx := a * (x - c) * (x - c) - b
        else
            if (x = 0) and (b = 0) then
                if (x - c) <> 0 then
                    Fx := (x - a)/(- c)
                else f := 0
            else
                if c <> 0 then
                    Fx := a + x / c
                else f := 0;

        if f = 1 then
            if expr <> 0 then
                writeln(' ', x:0:2, ' ', Fx:0:2)
            else
                writeln(' ', x:0:2, ' ', trunc(Fx))
        else writeln(' ', x:0:2, ' неопр.');

        x += dX;
      end;
end.