program Parabola;
uses wincrt;
var f, b, c: integer;
begin
  writeln('F(k*)');
  readln(f);
  if f=0 then
    begin
      writeln('B(k*)')
      readln(b)
    end;
      if b=0 then
        begin
          writeln('C(k*)=0?')
          readln(c)
        end;
          if c=0 then
            writeln('E'' una sola parabola!')
          else
      writeln('E'' il caso 2')
    writeln('E'' parabola degenere del fascio');
end.