詳細な方法（6）-結果

// ポイント6：結果は操作に参加できますが、「関数名」は
機能できませんMyFun（x、y：Integer）：Integer;
 begin 
  Result： = x + y; 
  Result： = Result * 2 ;
 end ;