.q Rod c3o3iejs

{Algoritmo Soma}
inicio
	inteiro: valor, soma <- 0, 
	inteiro: multiplo1, multiplo2, multiplo3;
	
	escreva('Informe múltiplos de 3...\n');
	escreva('Múltiplo 01: ');
	leia(valor);
	
	se valor % 3 == 0 entao
		multiplo1 <- valor;
	fimSe
	
	escreva('Múltiplo 02: ');
	leia(valor);
	
	se valor % 3 == 0 entao
		multiplo2 <- valor;
	fimSe
		
	escreva('Múltiplo 03: ');
	leia(valor);
	
	se valor % 3 == 0 entao
		multiplo3 <- valor;
	fimSe
	
	soma <- multiplo1 + multiplo2 + multiplo3;
	
	escreva('A soma dos múltiplos informados de 3 é: ', soma);
fim