Здравствуйте, Silencio!
Сложение двух комплексных чисел:
(a+bi)+(c+di)=(a+c)+(b+d)i
Умножение двух комплексных чисел:
(a+bi)(c+di)=(ac-bd)+(ac+bc)i
Код программы смотрите в приложении.


Приложение:
{115430}uses crt;var a,b,c,d:real; ch:char;begin clrscr; writeln(‘-введите первое комплексное число-‘); write(‘a = ‘); readln(a); write(‘b = ‘); readln(b); writeln(‘-введите второе комплексное число-‘); write(‘c = ‘); readln(c); write(‘d = ‘); readln(d); write(‘введите "+" для сложения двух чисел и "*" для умножения двух чисел = ‘); readln(ch); case ch of ‘+‘: begin write(‘(‘,a:0:2,‘ + ‘,b:0:2,‘i‘,‘)+(‘,c:0:2,‘ + ‘,d:0:2,‘i‘,‘)= ‘,a+c:0:2,‘ + ‘,b+d:0:2,‘i‘); end; ‘*‘: begin write(‘(‘,a:0:2,‘ + ‘,b:0:2,‘i‘,‘)*(‘,c:0:2,‘ + ‘,d:0:2,‘i‘,‘)= ‘,(a*c-b*d):0:2,‘ + ‘,(a*d+b*c):0:2,‘i‘); end; end; readln;end.