Призначення та функції середовищ для спільної роботи з документами​

1var  a: array[1..10]of integer;   s,i: integer; beginfor i: =1 to 10 do readln(a[i]); for i: =1 to 10 do    if a[i]> 0 then        begin        s: =s+a[i];         write(a[i],' ');         end; writeln; writeln('сумма: ',s); end.2var   a: array[1..20]of integer;   s,i: integer; begin writeln('исходный массив: '); for i: =1 to 20 do   begin   a[i]: =random(20);   write(a[i],' ');   end; writeln; write('искомые элементы: '); for i: =1 to 20 do     if i mod 2=1 then         begin         s: =s+a[i];         write(a[i],' ');         end; writeln; writeln('их сумма: ',s); end. 3var   a: array[1..20]of integer;   s,i: integer; begin writeln('исходный массив: '); for i: =1 to 20 do   begin   a[i]: =random(-50,50);   write(a[i],' ');   end; writeln; write('меньше 25: '); for i: =1 to 20 do     if a[i]< 25 then         begin         s: =s+1;         write(a[i],' ');         end; writeln; writeln('их количество: ',s); end.