--------
var
x:array of integer;
i,num,sum,j:integer;
begin
for i:=1 to 30000 do
begin
randomize;
for j:=1 to 1000 do
begin
num:=random (100)+1;
sum:=sum+num;
end;
sum:=sum div 1000;
x:=x+1;
writeln (sum);
readln;
end;
end.