Даны два круга с общим центром и радиусом r1 и r2 (r1 > r2). найти площади этих кругов s1 и s2, а также площади s3 кольца, внешний радиус которого равен r1, а внутренний радиус равен r2: s1=π*(r1)², s2=π*(r2)², s3=s1-s2. в качестве значения π использовать 3.14. дополнительные данные r1= 5.00, r2=2.00

Это вроде как ?

Const   nn = 20; type   ta = array[1..nn] of integer; procedure fillarray(var a: ta; n, min, max: integer); var   i, k: integer; begin   k : = max - min + 1;   for i : = 1 to n do a[i] : = random(k) + min end; procedure writearray(a: ta; n, p: integer); var   i: integer; begin   for i : = 1 to n do write(a[i]: p);   writeln end; procedure copynegative(var a, b: ta; m: integer; var n: integer); var   i: integer; begin   n : = 0;   for i : = 1 to m do       if a[i] < 0 then       begin           inc(n);           b[n] : = a[i]       end end; var   n: integer;   x, y: ta; begin   randomize;   fillarray(x, 10, -50, 50);   writeln('исходный массив');   writearray(x, 10, 4);   copynegative(x, y, 10, n);   writeln('массив из отрицательных элементов');   writearray(y, n, 4);   fillarray(x, 8, -200, 100);   writeln('исходный массив');   writearray(x, 12, 5);   copynegative(x, y, 12, n);   writeln('массив из отрицательных элементов');   writearray(y, n, 5); end. тестовое решение: исходный массив   -12  17  35  -4 -45    8  33  -8 -47  -4 массив из отрицательных элементов   -12  -4 -45  -8 -47  -4 исходный массив   -150 -174    92 -168    69  -60 -165  -78  -47    -4      0      0 массив из отрицательных элементов   -150 -174 -168  -60 -165  -78  -47    -4