Сложение, вычитание, умножение и деление комплексных чисел

type cplx=record
        r,i:real;
        end;
 
function sum_cplx(a,b:cplx):cplx; {сложение}
begin
    sum_cplx.r:=a.r+b.r;
    sum_cplx.i:=a.i+b.i;
end;
 
function mns_cplx(a,b:cplx):cplx; {вычитание}
begin
    sum_cplx.r:=a.r-b.r;
    sum_cplx.i:=a.i-b.i;
end;
 
function mul_cplx(a,b:cplx):cplx; {умножение}
begin
    mul_cplx.r:=a.r*b.r-a.i*b.i;
    mul_cplx.i:=a.r*b.i+a.i*b.r;
end;
 
function div_cplx(a,b:cplx):cplx; {деление}
begin
    div_cplx.r:=(a.r*b.r+a.i*b.i)/(sqr(b.i)+sqr(b.r));
    div_cplx.i:=(a.i*b.r-a.r*b.i)/(sqr(b.i)+sqr(b.r));
end;

uses crt;
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:9:5,' +',f.im:0:5,'i');
end;
procedure Summa(f,g:complex;var z:complex);
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
end;
procedure Raznost(f,g:complex;var z:complex);
begin
z.re:=f.re-g.re;
z.im:=f.im-g.im;
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
var  a,b,c:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti a:');
readln(a.re,a.im);
writeln;
writeln('Vvedite deist. i mnim. chasti b:');
readln(b.re,b.im);
writeln;
Summa(a,b,c);
write('A+B=');
Vyvod(c);
Raznost(a,b,c);
write('A-B=');
Vyvod(c);
Proizvedenie(a,b,c);
write('A*B=');
Vyvod(c);
Chastnoe(a,b,c);
write('A/B=');
Vyvod(c);
readln
end.

uses crt;
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:4:1,' -',-f.im:4:1,'i')
else writeln(f.re:5:2,' +',f.im:5:2,'i');
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
function Argument(f:complex):real;
begin
Argument:=arctan(f.im/f.re);
end;
function Modul(f:complex):real;
begin
Modul:=sqrt(sqr(f.re)+sqr(f.im));
end;
procedure Power(f:complex;n:integer;var t:complex);
var i:integer;
    m,a:real;
begin
m:=1;
for i:=1 to n do
m:=m*Modul(f);
t.re:=m*cos(n*Argument(f));
t.im:=m*sin(n*Argument(f));
end;
var a,b,c,x,y,z:complex;
begin
clrscr;
writeln('Введите действительную и мнимую части числа А:');
readln(a.re,a.im);
writeln('Введите действительную и мнимую части числа B:');
readln(b.re,b.im);
Power(a,3,x);
x.re:=x.re+1;
Power(b,2,y);
Proizvedenie(a,y,z);
z.re:=z.re-1;
Chastnoe(x,z,c);
writeln('Результат действий:');
write('C=');
Vyvod(c);
readln
end.