По алгоритму восстановите формулу.
a1:=1/x
a2:=a1/x
a3:=a2/х
a4:=a3/х
y:=a1+a2
y:=y+a3
y:=y+a4
-
-
-​

Program abc;Const  n=3;  m=3;Var  a:array[1..n,1..m] of integer;  b,y,i,j,sum:integer;  srd:real;  Begin  Writeln('Введите числа массива: ');    For i:=1 to n do      For j:=1 to m do      Begin        Write('a[',i,',',j,']= ');        Readln(a[i,j]);        if a[i,j]>0 then           begin             sum:=sum+a[i,j];            inc(b);          end         else          If a[i,j]<0 then            Inc(y);       End;     If sum>0 then      begin       srd:=sum/1      b;      Writeln('Среднее =',srd);      end      else      Writeln('Нет положительных членов массива');     If y>0 then      begin       Writeln('Количество отрицательных элементов =',y);      end      else      Writeln('Нет отрицательных членов массива');End.

Работа не моя:
Program raketa; uses graph;  var gd,gm:integer; begin  detectgraph (gd,gm);  initgraph (gd,gm,'C:\tp7 ');  line (300,60,240,120);  line (240,120,240,360);  line (360,120,360,360);  line (240,360,360,360);  line (300,60,360,120);  line (240,210,210,240);  line (210,240,240,240);  line (360,210,390,240);  line (390,240,360,240);  circle (300,150,15);  circle (300,210,15);  circle (300,270,15);  Bar (270,300,240,360);  line (240,360,180,450);  line (180,450,420,450);  line (420,450,360,360);  line (330,450,330,370);  line (300,450,300,365);  line (270,450,270,370);  line (240,330,180,330);  line (180,330,90,450);  line (172,330,80,445);  line (300,60,300,30); readln end.