estrutura Complexo:
        real r
        real i

funcao soma (Complexo a, Complexo b): Complexo
        Complexo c
        c.real <- a.real + b.real
        c.imag <- a.imag + b.imag
        return c

funcao mult (Complexo a, Complexo b): Complexo
        Complexo c
        c.real <- a.real * b.real - a.imag * b.imag
        c.imag <- a.imag * b.real + a.real * b.imag
        return c

funcao le_complexo (): Complexo
        Complexo c
        le c.real
        le c.imag
        return c

funcao mostra_complexo (Complexo c):
    se (c.imag = 0):
        mostre c.real
    senao (c.real = 0):
        mostre c.imag, "i"
    senao
        mostre c.real, c.imag

a <- le_complexo()
b <- le_complexo()
c <- soma(a, b)
mostra_complexo(c)
c <- mult(a, b)
mostra_complexo(c)