Método en profundidad (6) -Resultado

// Punto 6: El resultado puede participar en la operación, "Nombre de función" no puede 
funcionar MyFun (x, y: Integer): Integer;
 begin 
  Result: = x + y; 
  Result: = Result * 2 ;
 end ;