Составить программу(паскаль): даны действительные числа x, y, z. вычислить min2(x+y+z/2, xyz)+1

var

  x, y, z, res : real;

function min2 (a, b : real) : real;

begin

  if a < b then min2 := a else min2 := b;

end;

begin

  read (x, y, z);

  res := min2 (x + y + z / 2, x* y * z)+1;

  writeln (res);

end.