Заданы три числа x,y,z.найти min(xyz,x+y+z)

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y,z):=ReadInteger3;
  Min(x*y*z,x+y+z).Println
end.