Написать программу на паскале. даны натуральное число n и действительное число x.вычислить: tg x+tg tg x+tg tg tg x++tg x.

Var
n, i: integer;
x, ans, s: real;
begin
readln(n, x);
ans := tg(x);
s = ans;
for i := 2 to n do
begin
ans := tg(ans);
s := s + ans;
end;
writeln(s);
end.