Необходимо считать Два комплексных числа. Структура каждого комплексного состоит из двух частей – реальной и мнимой. Не

Необходимо считать Два комплексных числа. Структура каждого комплексного состоит из двух частей – реальной и мнимой. Необходимо реализовать подпрограммы сложения и перемножения двух комплексных чисел. В регистре rA после выполнения подпрограммы должна располагаться реальная часть результата, в регистре rX - мнимая часть результата.

uses crt;
type complex = record
a,b : integer;
end;
var
c1,c2,c3: complex;
rA,rX : integer;
function summa(c1,c2 : complex) :complex;
begin
rA := c1.a+c2.a;
rX := c1.b+c2.b;
end;
function proizv(c1,c2 : complex) : complex;
begin
rA := c1.a*c1.b-c2.a*c2.b;
rX := c1.a*c2.b+c1.b*c2.a;
end;
begin
clrscr;
writeln('Vvedite deistvitelnuyu chast chisla c1:');
read(c1.a);
writeln('Vvedite mnimuyu chast chisla c1:');
read(c1.b);
writeln('Vvedite deistvitelnuyu chast chisla c2:');
read(c2.a);
writeln('Vvedite mnimuyu chast chisla c2:');
read(c2.b);
c3:=summa(c1,c2);
Writeln('summa:’,c3.a,’+i*’,c3.b);
c3:=proizv(c1,c2);
Writeln(‘proizv:’,c3.a,’+i*’,c3.b);
readkey;
end.

функции в конце нужно вывести как это сделать *???

нужно вывести функции

функции summa и proizv