Как реализовать такую формулу

[Сальвия]

Как реализовать такую формулу? Помогите новичку пожалуйста

[Человек_Борща]

const
  N=10; 
var
  i:Integer; //counter
  Pn,Ls:Float;
begin
 for i:=0 to N do
 begin
 Pn:=Pi*i;  
 Ls:=I*Pn;
 Write('Ls = '+FloatToStr(Ls));
 end;
end;

Как-то так.