var
  N, L, R, i, j: integer;
  mas: array[-10000..10000] of real;
  max, min: real;
begin
  write('Введите L и R: ');
  readln(L,R);
  
  j := 0;
  for i := L to R do
    begin
      j := j + 1;
      mas[i] := 4.5*i - 1.6*i*i*i - 1.8;
    end;
    
  max := mas[L]; min := mas[L];
  for i := L to R do
      if round(mas[i]) mod 2 = 1 then
        begin
          if mas[i] >= max then
            max := mas[i];
          if mas[i] <= min then
            min := mas[i];
        end;
    
  for i := L to R do
    writeln('f(',i,') = ',mas[i]:0:4);
    
  writeln();
  writeln('Максимальное значение: ',max);
  writeln('Минимальное значение: ',min);
end.