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

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;