это ж начало начал..... могу решить но что есть среднее арифметическое? с математикой трудно было
а так вот
program test;
var i:real;
begin
writeln('Введите число');
readln(i);
{поиск этого среднего}
writeln('вывод среднего');
end.