Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [100; 1000] и находит отдельно сумму элементов в первой и во второй половинах массива. напишите сами и понятно

Var r,v: real; begin readln(r); v: =  (4/3)*pi*sqr(r)*r; writeln(v); readln; end. var  a,  b,  c,  cab, cba, acb:   real;   begin writeln('vvedite storonu a'); readln (a); writeln('vvedite storonu b'); readln (b); writeln('vvedite storonu c'); readln (c); cab: =(sqr(c)-sqr(a)-sqr(b))/(-2*a*b); cba: =(sqr(a)-sqr(b)-sqr(c))/(-2*b*c); acb: =(sqr(b)-sqr(a)-sqr(c))/(-2*a*c); writeln('ugol cab =', cab: 3: 2 ); writeln('ugol = cba = ', cba: 3: 2 ); writeln('ugol = acb = ', acb: 3: 2 ); readln; end. //uses crt; var k:   integer; //  идёт k-ая секунда begin readln(k); writeln('часов: ',  k div 3600); while k> =3600 do k: =  k  -  3600; writeln('минут: ',  k div 60); end. var r1, r2, r3, r0: real; begin writeln('vvedite r1 =');   readln(r1); writeln('vvedite r2 =');   readln(r2); writeln('vvedite r3 =');   readln(r3); r0: =1/(1/r1+1/r2+1/r3); writeln('soprotivlenie = ', r0); readln; end.

Program pr; uses crt; var  a,b: real; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if (a< 0) and (b< 0)          then              begin                      a: =a+2;               b: =b+2;                 writeln('a = ',a);                 writeln('b = ',b);             end else          if (a> 0) and (b< 0)                then                    writeln('a*b = ',a*b)       else                if (a< 0) and (b> 0)                          then                                writeln('b-a = ', b-a)             else  writeln('ни одно условие не выполняется'); readln; end.