proced-rotina_soma.ALG

Algoritmo "procedimentoSoma"
//
// Procedimento - Rotina
// Neste algoritmo, o sistema ira somar dois algarismos através de uma rotina para soma

Var
   X, Y: inteiro
   
Procedimento Soma(A,B: inteiro)
Inicio
   Escreval("Recebi o valor:", A)
   Escreval("Recebi o valor:", B)
   Escreval("A soma vale:", A+B)
FimProcedimento

Inicio
   X <- 5
   Y <- 3
   Soma(X,Y)
Fimalgoritmo