Составить программу в паскалес клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной частиP.S. пять чисел нужно выразить через одну переменную

Var pr,sum,n:real; i:integer;
Begin
write(Вводите числа: );  
for i:=1 to 5 do begin
                   readln(n);
sum:=sum+n;
end;
pr:=sum/5;
writeln(среднее арифметическое равно: ,pr);
end.