MOD de 2 e 3 // Algoritmo e programação

algoritmo "43"
// Função :
// Autor :
// Data : 28/11/2013
// Seção de Declarações 
var
A, B, C, D:inteiro
inicio

escreval ("Digite [4] números")
leia (A,B,C,D)

se (A mod 2= 0)entao
   escreval(A," é divisível por [2] ")
   senao
   se (A mod 3 = 0) entao
     escreval(A," é divisivel por [3] ")
     fimse
fimse

se (B mod 2 = 0) entao
    escreval(B," é divisível por [2] ")
    senao
     se (B mod 3 = 0) entao
      escreval(B," é divisivel por [3] ")
      fimse
fimse

se (C mod 2 = 0) entao
   escreval(C," é divisível por [2] ")
   senao
     se (C mod 3 = 0) entao
      escreval(C," é divisivel por [3] ")
      fimse
fimse

se (D mod 2= 0) entao
   escreval(D," é divisível por [2] ")
   senao
     se (D mod 3 = 0) entao
      escreval(D," é divisivel por [3] ")
      fimse
fimse

fimalgoritmo