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

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.

Как-то так

Var i:byte;
n,k:real;
begin
for i:=1 to 5 do
begin
readln(n);
k:=k+n;
writeln(k/i);
end;
end.