O exercício propunha fazer duas funções uma para multiplicação e outra para criar uma fatorial, porém devem ser feitas usando apenas operações de soma e subtração
bom fiz uma função para multiplicar e esta funcionando porém estou tentando utiliza-la para fazer a fatorial e o resultado sempre da zero ;-; podem me ajudar
algoritmo "semnome"
var
a,b:inteiro
funcao multi(a:inteiro;b:inteiro):real
var aux:real
inicio
se a=0 entao
retorne 0
senao
aux <- 0
enquanto b>0 faca
aux <- aux+a
b <- b-1
fimenquanto
retorne aux
fimse
fimfuncao
funcao fatorial(a:inteiro):real
var fat,res:real
inicio
enquanto fat > 0 faca
fat<-a
fat <- fat - 1
res <- multi(fat,a)
fimenquanto
retorne res
fimfuncao
inicio
leia(a)
escreval(fatorial(a))
fimalgoritmo