Составить программу в PascalABC с применением цикла 50 БАЛЛОВ !!!!​

Question

Составить программу в PascalABC с применением цикла 50 БАЛЛОВ !!!!​

---

Answer 1

program abc;

var n,x: integer;

s: real;

begin

s:=0;

x:=1;

readln(n);

while x<=n do</p>

begin

s:=S+(exp(2*ln(sin(x)))+cos(sqrt(x)));

x:=x+1;

end;

writeln(s);

end.

Comments

и где 50 баллов?

---

разве не пришли ?