Procedure multiply(a,b)
  ProcedureReturn a*b
EndProcedure