Linguagem de Programação VisualG

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Quadrado"
Var
lado1, lado2, lado3, lado4:inteiro
Inicio
 escreval("Digite o Lado 1:")
 leia(lado1)
 escreval("Digite o Lado 2:")
 leia(lado2)
 escreval("Digite o Lado 3:")
 leia(lado3)
 escreval("Digite o Lado 4:")
 leia(lado4)
 se (lado1=lado2) e (lado2=lado3) e (lado3=lado4) entao
 escreval ("A figura geometrica e' um quadrado!")
 
 senao
 escreval ("A figura geometrica nao e' um quadrado!")
 
 fimse
Fimalgoritmo