Поможите с PASCAL

Поможите розвязать эту задачу
Найти средние арефметичное число с цифр введеной с клавиатуры числа
Версия PASCAL ABC

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

Ппц просветил гг
средние арефметичное это
когда есть число 123 то мы додаем его 1+2+3=6 потом делем на их кол-во чисел 6/3=2 и вот это мне надо сделать в паскале

буду з пк, напишу, а то с моба трудно.
Добавлено 22.04.14 в 11:17:10:
если никтотне поможет)

Ок

program ser_chis;
uses crt;
var i,n:integer;
s:real;
begin
write ('n= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if n>1 then
s:=(s+i)/2;
end;
write (' sym = ',s);
readln(s);
end.

Изм. 1 раз. / Посл. изм.

ryfys 3.55

(23 апр 2014, 13:37)

Спс

на пхп

$chislo = '123'; //число
$c = mb_strlen($chislo); //количество цыфр

for ($i=0; $i<=$c; $i++)
{
$a = ($a+$chislo[$i]); //плюсуем все
}
echo $a/$c; //делим на количество и выводим

тьфу..
я не прочитал что нужно именно средние арифметическое
так вот верно

program ser_chis;
uses crt;
var i,n:integer;
s:real;
begin
write ('n= ');
readln(n);
s:=0;
for i:=1 to n do
begin
if n>1 then
s:=(s+i)/n;
end;
write (' sym = ',s);
readln(s);
end.

MrPrizrak(UA), теперь у него 2 будет из-за тебя))