А=К+З
К=Л:3
Л=М+О
М=Н-Р
Н=З*3
З=Р+О
О=Р*2
Р=36:4=9
О=Р*2=9*2=18
З=Р+О=9=18=27
Н=3*3=27*3=81
М=Н-Р=81-9=72
К=Л:3=90:3=30
А=К+З=30+27=57
1 35 35 98 65 310 69 13 11 35 95 108 108 95 9
Получится примерно это.
Прошу прощения что на листе, надеюсь, всё будет понятно
И вниз..жесткий диск, процессор, оперативная память
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.