Найдите среднее арифметическое 5 любых чисел. в паскале с оператором цикла for

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