Firebird - Execute Block com Parâmetros e Retorno

EXECUTE block (
   x DOUBLE PRECISION = :X,
   y DOUBLE PRECISION = :Y
)
RETURNS (
   MULT DOUBLE PRECISION
)
AS
BEGIN
  MULT = x*y;
  suspend;
END