valor m1;
valor m2;

/* CALCULA A QUANTIDADE DE TRIENIOS COMPLETOS */
m1 = novant / 3;
m1 = arrend(m1, 0, 1);

/* VERIFICA SE O EMPREGADO POSSUI AO MENOS 3 ANOS */
se (novant < 3);
vcalc = 0;
vinf = 0;
senao;

/* MULTIPLICA O VALOR LANCADO PELA QUANTIDADE DE TRIENIOS */
m2 = valvar(0) * m1;
vcalc = m2;
vinf = m1;
fimse;