Здравствуйте. Нужна программа на Pascal ABC, которая будет находить среднее арифметическое n чисел и округлять его до целых. Даю 100 баллов!!! СРОЧНО!!!

А как задать название программе?

Практика показывает, что чем автор вопроса "дремучее", тем выше вероятность, что из двух практически одинаковых ответов он выберет лучшим тот, который длиннее )))

var  i,n,m,s:integer;  begin  Write('n='); Read(n);  s:=0;  for i:=1 to n do begin Read(m); s:=s+m end;  Writeln('Cреднее арифметическое округленно равно ',Round(s/n))end.Примерn=53 6 2 4 3Cреднее арифметическое округленно равно 4