var
a: integer
dat:array [1..10] of integer
begin
a:=0;
for 1 to 10 do
a = a+dat;
end;
a := a/10;
writeln(a);
end.
