leia a, b
leia c, d

r <- a*c - b*d
i <- b*c + a*d

mostra "Resultado: ", r, " + (", i, "i)"