Exemplo de trabalho no visualg

(3.1) algoritmo "Maior e menor"
// Função : M e N
// Autor : Pedro Artur
// Data : 16/06/2013
// Seção de Declarações var w, x, y, z :inteiro inicio // Seção de Comandos
Escreval ("Digite um numero inteiro:") leia (w)
Escreval ("Digite outro numero inteiro:") leia (x) y w entao escreval ("a diferença entre ", x, " e ", w," e igual a", z) fimse fimalgoritmo

(3.2)

algoritmo "1 a 9"
// Autor : Pedro Artur
// Data : 16/06/2013
// Seção de Declarações var x :inteiro inicio // Seção de Comandos escreval ("digite um numero:") leia (x) se x < 9 entao escreval("O valor está na faixa permitida") fimse se x > 9 entao escreval("O valor nao está na faixa permitida") fimse fimalgoritmo (3.3)

algoritmo "números”
// Autor : Pedro Artur
// Data : 16/06/2013
// Seção de Declarações var a,b,c,d :inteiro inicio // Seção de Comandos escreval ("digite um numero a:") leia (a) escreval ("digite um numero b:") leia (b) escreval ("digite um numero c:") leia (c) escreval ("digite um numero d:") leia (d) se a mod 2 = 0 entao escreva("O numero ", a, " e divisel por 2") se a mod 3 = 0 entao escreva (" e por 3") senao escreval (" ") fimse fimse se b mod 2 = 0 entao escreva("O numero ", b, " e divisel por 2") se b mod 3 = 0 entao escreva (" e por 3") senao escreval (" ") fimse fimse se c mod 2 = 0 entao escreva("O numero ", c, " e divisel por 2") se c mod 3 = 0 entao escreva (" e por 3") senao escreval (" ") fimse fimse se d mod 2 = 0 entao escreva("O numero ", d, "e divisel por 2") se d mod 3 = 0 entao escreva (" e por 3") senao escreval (" ") fimse