estrutura Polar:
    int r
    int theta

funcao le_polar(): Polar
    Polar p
    leia p.r
    leia p.theta
    retorne p
    
funcao mostra_polar(Polar p):
    mostre p.r, p.theta

funcao mais_distante(v):
    Polar mais_longe
    mais_longe.r <- -1
    para i em (0..tamanho(v)-1):
        se v[i].r > mais_longe.r:
            mais_longe <- v[i]
    retorne mais_longe
    
leia n

vetor(Polar, n) v

para i em (0..n-1):
    v[i] <- le_polar(ent)

p <- mais_distante(v)

mostra_polar(p)