program byredra1n;
var a:array[1..1000] of integer;
b,i,n:integer;
d,c:real;
begin
b:=0;
writeln('Vvedite kol-vo failov');
readln(n);
writeln('Vvodite razmeri');
for i:=1 to n do
begin
readln(a[i]);
b:=b+a[i];
end;
d:=b/1024;
c:=d/n;
writeln('Summarnii razmer:',b);
writeln('Srednii razmer:',c);
readln;
end.