Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.

program D1KPxx16;uses crt;vara,sr:real;i,n:integer;beginread(n);for i:=1 to n dobeginread(a);sr:=sr+a;end;sr:=sr/n;writeln(sr);end.все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.