Вот смотри, можно так:
s:=0;
n:=0;
for i:=1 to 5 do begin
Inc(n);
Write('-> ');
ReadLn(a);
s:=s+a;
WriteLn('Введено чисел: ,n,' Сумма: ',s:6:2,' Сред.арифметическое: ',s/n:6:2)
end;
дак я эту и написал, только вот так
║ program srednee_arifmeticheskoe; ▲
║ var ■
║ i:integer; ▒
║ a,b,c:real; ▒
║ begin ▒
║ b:=0; ▒
║ for i:=1 to 5 do ▒
║ begin ▒
║ writeln ('введите число',i:2); ▒
║ readln(a); ▒
║ B:=b+a; ▒
║ c:=b/i; ▒
║ writeln('введите чисто',i:2,' сумма=',b:3:2,' среднее арифметическое=',c:3:2);
║ end; ▒
║ readln; ▒
║ end. ▒
║