Algoritmo "soma dos divisiveis por 5" /*VISUALG*/
var
    soma,i,entrada : INTEIRO
inicio
   soma := 0   contador := 0   PARA i DE 1 ATE 10 FACA        ESCREVAL("INFORME O NUMERO ",i," :")       
LEIA (entrada)       
SE entrada%5 = 0 ENTAO
        soma := soma + entrada
        
        FIMSE
   FIMPARA
   
   ESCREVA ("A soma dos numeros divisiveis por 5 é:",soma)

fimalgoritmo /*Espero ter ajudado*/