Вести с клавиатуры 5 дробных чисел и после ввода каждого 1

var

 sr, num: real;

 i: integer;

begin

 sr := 0;

 for i := 1 to 5 do

 begin

   read(num);

   sr := sr + num;

   write(sr / i,' ');

 end;

end.

program raf105;

var a,b:real;

i:integer;

begin

writeln('Вводите 5 чисел по очереди');

for i:=1 to 5 do

begin

 readln(a);

 b:= b+a;

 writeln('Среднее арифметическое чисел, введёнх ранее: ',b/i);

end;

end.

Язык программирования PascalABC