Вычислить сумму х+x^3/3+x^5/+x^11/11,x вводится с клавиатуры.(в 3 цыклах )

1. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; while i< 11 do   begin   i: =i+2;   a: =x*x*a;   s: =a/i;   end; writeln('s = ',s); end. 2. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; repeat   i: =i+2;   a: =x*x*a;   s: =a/i; until i=11; writeln('s = ',s); end. 3. var x,a,s: real; i: integer; begin   write('x = '); readln(x); a: =x; s: =x; for i: =1 to 11 div 2 do   begin   a: =x*x*a;   s: =a/(2*i+1);   end; writeln('s = ',s); end. пример: x = 3 s = 16104.2727272727

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.