uses crt;
type complex=record
re:real;
im:real;
end;
type pcomplex=^complex;
var u,v,w,z:pcomplex;
function add(c1,c2:pcomplex):pcomplex;
begin;
add^.re:=c1^.re+c2^.re;
add^.im:=c1^.im+c2^.im;
end;
function mul(c1,c2:pcomplex):pcomplex;
begin;
mul^.re:=c1^.re*c2^.re-c1^.im*c2^.im;
mul^.im:=c1^.im*c2^.re+c1^.re*c2^.im;
end;
begin;
clrscr;
getmem(u,2*sizeof(real));
getmem(v,2*sizeof(real));
getmem(w,2*sizeof(real));
u^.re:=1;
u^.im:=2;
v^.re:=3;
v^.im:=4;
z:=mul(u,v);
z:=mul(z,v);
writeln(z^.re:2:2,'    ',z^.im:2:2);
freemem(u,2*sizeof(real));
freemem(v,2*sizeof(real));
freemem(w,2*sizeof(real));
readln;
end.

function mul(c1,c2:pcomplex):pcomplex;
begin;
  mul^.re:=c1^.re*c2^.re-c1^.im*c2^.im;
  mul^.im:=c1^.im*c2^.re+c1^.re*c2^.im;
end;