Definindo novos tipos

dado.poti

tipo Dado
  lados: Inteiro
  var valor = aleatório(1, lados)
  rolar()
    valor := aleatório(1, lados)
  fim
fim

d1 = Dado(6)
escreva d1.valor
d1.rolar
escreva d1.valor

pessoa.poti

tipo Pessoa
  nome: Texto
  email: Texto
  idade: Inteiro
#  instituicao = "IFRN"
fim

a = 10
b = "IFRN"
c = Pessoa("Potigol", "potigol@ifrn.edu.br", 6)
joao = Pessoa("Joao", "joao@gmail.com", 19)

agenda = [c, joao]
escreva agenda[1].nome

escreva c.nome
escreva c.idade
escreva c
escreva joao.nome

quadrado.poti

tipo Quadrado
  lado: Real
  area() = lado ^ 2
  perimetro() = lado * 4
fim

tipo Circulo
  raio: Real
  perimetro() = 2 * 3.14 * raio
fim

q1 = Quadrado(10)
q2 = Quadrado(20)

escreva q1.lado
escreva "Área = {q1.area}"
escreva "Perímetro = {q1.perimetro}"
escreva q2.area