Написать программу, которая по заданному натуральному значению и действительному вычисляет результат выражения- Pascal(Паскаль)

uses crt;
var n,i,j:integer;
    x,p,s:real;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*sin(x)/cos(s);
  s:=s+p;
 end;
write('S=',s:0:4);
readln
end.