var
  x, y, min, max: real;
  flag: boolean;
  i: byte;

begin
  x := -1.0;
  flag := true;
  for i := 0 to 18 do
  begin
    y := (x + 1) / (3 * Sqr(x) + 2);
    if flag then
    begin
      max := y;
      min := y;
      flag := false;
    end
    else
    begin
      if y > max then max := y;
      if y < min then min := y;
    end;
    WriteLn(x:0:2, #9, y:0:5);
    x := x + 0.5;
  end;
  WriteLn('Мин= ', min:0:5, '  Макс=  ', max:0:5);
end.