Найдите среднее арифметическое 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.