(* Algorithmus 2.8 *)
PROCEDURE mult(a,b: komplex; VAR c: komplex);
BEGIN
  c.re:= a.re*b.re-a.im*b.im;
  c.im:= a.re*b.im+b.re*a.im
END;