Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
Var
x,s:real;
n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
<span>end.</span>
Вроде бы 10011 :)))))))))))))))))))))))))))))))))))))))
На месте каждой звездочки может быть одна из 3 цифр (1,2,3).
Тогда для трех звездочек будет 3*3*3=3^3 комбинаций.
Возможно четыре варианта расположения буквы (A или B):
(A/B)* * *
* (A/B) * *
* * (A/B) *
* * * (A/B)
Итого:3^3*4*2=216.
Умножение не знаю, сложение и вычитание сделал