Submission #5394908

Source Code Expand

var
  n,s:int64;
  i:longint;
begin
  readln(n);
  for i:=1 to n do s:=s+i;
  s:=s*10000*(1/n);
end.

Submission Info