Составить алгоритм вычисления суммы членов последовательности a1, a2, , a50 с четными индексами

Const   csize = 10; var   m: array[1..csize] of integer; begin   randomize();   var max : = -(maxint);   write('исходный массив: ');   for var i : = 1 to csize do   begin       m[i] : = random(100) + 1;       if (i mod 2 = 0) and (m[i] > max) then max : = m[i];       write(m[i], ' ')   end;   write(newline, 'преобразованный массив: ');   for var i : = 1 to csize do   begin       if m[i] mod 3 = 0 then m[i] : = max;       write(m[i], ' ')   end end.

Program cgt; var x1,y1,x2,a,y2,b,c,x3,y3: real; procedure ioi(x1,y1,x2,y2: real; var a: real); begin a: =sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); end; begin read(x1,x2,y1,y2,x3,y3); ioi(x1,y1,x2,y2,a); ioi(x1,y1,x3,y3,b); ioi(x3,y3,x2,y2,c); if(a> =b)and(a> =c)then writeln('первая и вторая точка ',a) else if(b> =a)and(b> =c)then writeln('первая и третая точка ',b) else if(c> =b)and(c> =a)then writeln('третая и вторая точка ',c); end.2)program cgt; var z,x,y: real; function ioi(x: real): real; beginif(x=0)then ioi: =0; if(x< 0)then ioi: =-1; if(x> 0)then ioi: =1; end; beginread(x,y); z: =(ioi(x)+ioi(y))*ioi(x+y); writeln(z); end.