Aula11 - VisualG - Calculando o Sucessor e o Antecessor de um número

algoritmo "Aula11"

var numero,sucessor,antecessor:inteiro

inicio
      escreva("Digite um número inteiro...:")
      leia(numero)
   
      antecessor:=numero-1
      sucessor:=numero+1
   
      escreval("O sucessor de",numero," é",sucessor)
      escreval("O antecessor de",numero," é",antecessor)
fimalgoritmo