По заданным с клавиатуры значениям a, b найти значение F f=a+5 при b>2 а при b>2 паскаль

Question

По заданным с клавиатуры значениям a, b найти значение F f=a+5 при b>2 а при b>2 паскаль

---

Answer 1

Function z00005(x, a, b : real; No1 {1, 2} : byte) : real;
    var
      f : real;
  begin
    if (No1 = 1) then
      begin
        if (b < 2) then
          begin
            f := a + 5;
          end
            else
              begin
                f := a;
              end;
      end
        else
          begin
            if (b < a) then
              begin
                f := x * x;
              end
                else
                  begin
                    f := 8 * a * b;
                  end;
          end;
    z00005 := f;
  end;