Program PascalGuru;
Var f:text; {описание переменных}
s:string;
i:integer;

{------------------------------------------------------}
function average(s:string):real; {функция из строки-массива возвращает его среднеарифметическое}
var i,p,n,code,summa:integer;
begin
summa:=0; {сумма изначально равно 0}
i:=0; {счётчик последовательности обнуляем}
p:=pos(' ',s);
repeat {начало разбивания строки на слова-числа}
inc(i); {счётчик последовательности увеличивыаем на +1}
val(copy(s,1,p-1),n,code); {текущее слово привращаем в число}
delete(s,1,p); {удаляем слово-число}
summa:=summa+n; {текущее число добавляем к сумме}
p:=pos(' ',s);
until p=0; {*конец разбивания строки на слова-числа}
val(s,n,code); {последнее слово привращаем в число}
summa:=summa+n; {последнее число добавляем к сумме}

average:=summa/(i+1) {возвращаем результат}
end;
{------------------------------------------------------}

begin
Assign( f ,'file2.txt'); reset(f); {подключение файла для чтения}

i:=0; {счётчик последовательности обнуляем}
while not eof(f) do {считывание всего файла до конца}
begin
readln(f,s);{считывание текущего}
inc(i); {счётчик последовательности увеличивыаем на +1}
writeln('v ',i,' massive SR.AR: ',average(s):0:2); {вывод результата через вызов функции}
end;

readln;
close(f); {закрываем файл}
end.