Algoritmo lê um número e diz seu sucessor

// Função : le numero e diz sucessor

// Autor : Thaysa

// Data : 28/04/2009

// Seção de Declarações

var

num, total : numerico

inicio

// Seção de Comandos

escreva ("Digite um numero: ")

leia (num)

total <- (num+1)

escreva (total)

escreva (" é o seu sucessor")

fimalgoritmo