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

program aver;

var n, s: integer; //n — число, s — сумма чисел

a: real; //Среднее значение введенных чисел

begin

s:= 0;

for i:integer:=1 to 5 do

begin

write(\'Введите число: \');

readln(n);

s:= s + n;

a:= s / i;

writeln(\'Среднее значение введенных чисел: \', a)

end

end.