Сделать в pascal abc. 1.даны два неотрицательных числа a и b. найти их среднее , т.е. квадратный корень из их произведения: (a*b)1/2 (1/2 это степень 2.даны два ненулевых числа. найти сумму, разность, произведение и частное их модулей. 3.даны два круга с общим центром и радиусами r1 и r2 (r1> r2). найти площади этих кругов s1 и s2, а также площадь s3 кольца, внешний радиус которого равен r1, а внутренний радиус равен r2: s1=п* (r1)^2, s2=п* (r2)^2, s3=s1 - s2. в качестве значения п использовать 3.14. 4.дана площадь s круга. найти его диаметр d и длину l окружности, ограничивающей этот круг, учитывая, что l=п*d, s=п*d^2/4. в качестве значения п использовать 3.14.

1.var a,b,c:real;
   begin
readln(a,b);
c:=sqrt(a*b);
writeln('Среднее геометрическое=',c)
end.

1)

N = int(input())

K = int(input())

L = int(input())

a = []

s = 0

for i in range(N):

   a.append(int(input()))

for i in range(K,L+1):

   s += a[i]

print(s)

2)

N = int(input())

K = int(input())

L = int(input())

a = []

s = 0

counter = 0

for i in range(N):

   a.append(int(input()))

for i in range(K,L):

   s += a[i]

   counter+=1

print(s/counter)

3)

N = int(input())

k = int(input())

L = int(input())

a = []

s = 0

for i in range(N):

   a.append(int(input()))

for i in range(0,k):

   s+=a[i]

for i in range(L+1,N+1):

   s+=a[i]

print(s)

Стоит отметить, что задача не "на списки", и, фактически, решается без них эффективнее.

def get_divcount(n):

   divcount = 0

   for number in range(2, n // 2 + 1):

       if not n % number:

           divcount += 1

   return divcount

max_number, max_divcount = 0, 0

# range -- работает только для Z (множества целых чисел)

# поэтому верно следующее:

# range(a, b) <=> [a, b)

# range(a, b + 1) <=> [a, b]

for number in range(84052, 84130 + 1):

   divcount = get_divcount(number)

   if divcount > max_divcount:

       max_number, max_divcount = number, divcount

print("Делители:", max_divcount)

print("Число:", max_number)