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

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.

Как-то так