Составить программу вычисления по алгоритму

var
  S: real;
  k, n, j: integer;
  R, P: real;
  i: integer;
 
begin
  read(k, n);
  S := 0;
  for j := 1 to k do
  begin
    R := 0;
    for i := 1 to n do
      R += power(-1, j) * power(sin(j), i);
    R += 1;
    P := 0;
    for i := 1 to n do
      P += power(sin(j), i);
    P += 1;
    S += R / P;
  end;
  writeln(S);
end.

var j,k,n,i:integer;
S,R,P:real;
Begin
writeln('vvedi k,n');
readln(k,n);
S:=0;
For j:=1 to K do
begin
R:=0;
For i:=1 to n do
begin
R:=R+((-1^i)*(sinj)^i));
writeln('R-promezhutochnoe= ',R:6:1);
end;
R=R+1;
P:=0;
For i:=1 to n do
begin
P:=P+(sinj)^i;
writeln('P-promezhutochnoe= ',P:6:1);
end;
P:=P+1;
S:=S+R/P;
writeln('S-promezhutochnoe= ',S:6:1);
end;
writeln('S= ',S:6:1);
readln;
End.