<pre>function laTVQ N,T  global tauxTVQ  if T is in "PTX" then get ((N * tauxTVQ) / 100) else get 0  return itend laTVQ</pre>