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

program a3;
uses crt;
var
a: array[1..1000] of integer;
i,b,c,n:integer;
d:real;
begin
readln(n);{êîë-âî ïåðåìåííûõ}
for i:=1 to n do
readln(a);
c:=a[2];
for i:=1 to n do
begin
b:=a[1]+a[2];
a[1]:=a[1]+1;
a[2]:=a[2]+2;
end;
d:=b/n;
writeln(d:0:0);
end.