Вычислить сумму - PascalABC.NET (24644)

const e=2.72;
var n,i:integer;  p,x,z:real;
begin
write('x=');
readln(x);
write('n=');
readln(n);
z:=1;
p:=(sin(i*x)/cos(i*x))+exp((i*x)*ln(e))/z;
for i:=1 to n do
 begin;
  z:=z*(i);
  p:=p+((sin(i*x)/cos(i*x))+exp((i*x)*ln(e))/z);
 end;
 writeln('P=',p);
end.