На языке Паскаля. Составе программу, которая вводится с клавиатуры последовательность из пяти висели после ввода каждого числа выводят среднее арифметическое полученной части последовательности.

Var i:byte;

n, k:real;

begin

for i:=1 to 5 do

begin

readln (n);

k:=k+n;

writeln (k/i);

end;

end.

Program sum_41;

var a, b, c, d, e: real;

begin

readlan (a);

writeln (a/1);

readln (b);

writeln ((a+b) / 2);

readln (c);

writeln ((a+b+c) / 3);

readln (d);

writeln ((a+b+c+d) / 4);

readln (e);

writeln ((a+b+c+d+e) / 5);

end.

Как-то так