Дано комплексное число, найти сумму ряда - Pascal

Формулировка задачи:

Даны комплексное число Z, найти сумму ряда:

Решение задачи: «Дано комплексное число, найти сумму ряда»

Листинг программы

type complex=record
             re,im:real;
             end;
function summa(f,g:complex):complex;
begin
result.re:=f.re+g.re;
result.im:=f.im+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;
function Power(f:complex;n:integer):complex;
var i:integer;
    m,a:real;
begin
m:=1;
for i:=1 to n do
m:=m*Modul(f);
result.re:=m*cos(n*Argument(f));
result.im:=m*sin(n*Argument(f));
end;
function mult(f:complex;n:real):complex;
begin
result.re:=f.re*n;
result.im:=f.im*n;
end;
procedure vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:6:2,' -',-f.im:0:2,'i')
else writeln(f.re:6:2,' +',f.im:0:2,'i');
end;
var z,w,s:complex;
    k:byte;
begin
writeln('Введите действительную и мнимую части комплексного числа Z');
readln(z.re,z.im);
write('Введенное число Z=');
vyvod(z);
w.re:=0;
w.im:=0;
for k:=0 to 30 do
w:=summa(w,mult(power(z,k),k));
write('Результат W=');
vyvod(w);
end.

Объяснение кода листинга программы

Тип данных complex представляет комплексное число и содержит поля re и im для хранения действительной и мнимой частей соответственно.
Функция summa принимает два комплексных числа f и g и возвращает их сумму.
Функция Argument принимает комплексное число f и возвращает его аргумент.
Функция Modul принимает комплексное число f и возвращает его модуль.
Функция Power принимает комплексное число f и целое число n и возвращает n-ую степень f.
Функция mult принимает комплексное число f и число n и возвращает произведение f и n.
Процедура vyvod выводит комплексное число f в формате a + bi или a - bi, где a и b - действительная и мнимая части соответственно, а i - мнимая единица.
Переменные z, w и s используются для хранения комплексных чисел.
Переменная k используется в цикле для создания ряда.
Пользователю предлагается ввести действительную и мнимую части комплексного числа Z.
Цикл выполняет операции над комплексными числами, добавляя каждое k-ое произведение мощности Z и k в переменную w.
Результат W выводится на экран.