programa test;
var v: inteiro;
    i,max, juro,: inteiro;
inicio
 repita
  { leia o valor  inicial}
  leia(v);
  {leia a taxa de juros }
  leia(juro);
  { Leia o periodo };
  leia(max);
  valor:= 1;
  i:= 1;
  enquanto i <= max          { (1+juro) elevado a n }
  faca inicio
           valor:= valor*(1+juro);
           i:= i+1
       fim; 
   escreva(valor)
 ate v = -1;
fim.