uses
  system;

var
  a, b, h, min, sr, cache: real;
  temp: string;
  n: integer;

function F(x: real): real;
begin
  Result := 3 * Sqr(X) - 1;
end;

begin
  repeat
    Console.Write('Введите левую границу: ');
    Temp := Console.ReadLine();
    if not TryStrToFloat(Temp, A) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Temp, A);

  repeat
    Console.Write('Введите правую границу: ');
    Temp := Console.ReadLine();
    if not TryStrToFloat(Temp, B) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Temp, B);

  if A > B then
  begin
    Cache := A;
    A := B;
    B := Cache;
  end;

  repeat
    Console.Write('Введите шаг: ');
    Temp := Console.ReadLine();
    if not TryStrToFloat(Temp, H) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Temp, H);

  N := Round((B - A) / H) + 1;
  Sr := 0;
  for var i := 1 to n do
  begin
    if i = 1 then
    begin
      Cache := A;
      Min := F(Cache);
    end
    else if Min > F(Cache) then Min := F(Cache);
    Sr += F(Cache) / N;
    Cache += h;
  end;
  Console.WriteLine('Минимальное значение: ' + Min);
  Console.WriteLine('Среднее арифметическое значение: ' + Sr);
end.