1ª lista. 5 - Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se apenas do (+).

algoritmo "somas sucessivas"
// Função :
// Autor :
// Data : 20/10/2010
// Seção de Declarações
var
x,y,repeticao,soma : inteiro
inicio
ESCREVA ("Entre com o Multiplicador INTEIRO: ")
LEIA (x)
ESCREVA ("Entre com o Multiplicando INTEIRO: ")
LEIA (y)
repeticao <- x
soma <- 0
x <- ABS(x)
y <- ABS(y)
ESCREVA (x ," x ", y ," = ")
SE (x=0) ou (y=0) ENTAO
ESCREVAL ("Qualquer número multiplicado por '0' é igual a '0'!!!")
SENAO
PARA repeticao DE 1 ATE x FACA
ESCREVA (" + ", y)
soma <- soma + y
FIMPARA
ESCREVAL ("")
ESCREVAL (" O resultado é: ", soma)
FIMSE

fimalgoritmo