funcao area_tri (real x, real y, real z): real
    real s
    s <- (x + y + z) / 2
    retorne raiz(s * (s-x) * (s-y) * (s-z))

arquivo ent
ent <- abre "fig.txt"

real area, maior_area, x, y, z
string nome, maior_nome

maior_area <- -1
maior_nome <- ""

enquanto (nao fim (ent)):
    leia nome
    se nome = "circulo":
        leia x
        area <- pi * x^2
    senao se nome = "quadrado":
        leia x
        area <- x^2
    senao se nome = "retangulo":
        leia x, y
        area <- x * y
    senao se nome = "triangulo":
        leia x, y, z
        area <- area_tri (x, y, z)
    senao:
        mostre "Não conheço a figura!"
        exit(0)
    se area > maior_area:
        maior_area <- area
        maior_nome <- nome

mostre "A maior figura é o", maior_nome, " que tem área ", maior_area