Informatika (2 семестр) / 2 аттестация / 3-я задача (среднее)

program sredn;
uses crt;
var f1:file of real; {дан файл вещественных чисел}
a, sr , n:real; {переменные вещественного типа,для вычисления среднего арифметического этих чисел}
begin
assign(f1,'E:\pr\pascal\9.txt'); {отождествление файла и файловой системы}
rewrite(f1); {создание файла}
write(f1,2.5); {запись чисел в файл}
write(f1,1.5);
write(f1,0);
write(f1,1.5);
write(f1,10);
close(f1);
reset(f1); {открыть файл для чтения с начала}
sr:=0;
n:=0;
while not eof(f1) do {цикл пока конец файла не достигнут выполнять}
begin
read(f1,a);
write(a:0:2,' ');
n:=n+1; {счетчик}
sr:=sr+a;
end; {конец цикла}
writeln;
close(f1); {закрыть файл}
write('Среднее арифметическое=',sr/n:0:2);
end.