Tính tổng n phép chia

//hoclen.top

 
 
#include <bits/stdc++.h>
 
#define lli long long int
 
using namespace std;
 
int main()
{
	int n;
	cin >> n;
	int k=sqrt(n);
	lli s=0;
	
	for (int i=1; i<=k; i++) s+=n/i;
	s=2*s-k*k;
	cout<<s;
	return 0;
}

var n,i:longint;
  k:integer;
  s:int64;
begin
  readln(n); 
  k:=trunc(sqrt(n));
  s:=0;
  for i:=1 to k do
    s:=s+ (n div i);
  s:=2*s;
  s:=s-sqr(k);
  write(s);
end.