begin	comment Aantal verschillende rationale getallen r met 0 <= r < 1, r = p / q, 1 <= q <= n;
	integer k, q, Scum, Sk;
	real app, lab, err; integer array S[1 : 1000];
	lab:= 3 / 3.14159265359 ** 2;
	for k:= 1 step 1 until 1000 do S[k]:= k; Scum:= 0;
	for k:= 1 step 1 until 1000 do
	begin	NLCR; ABSFIXT (4, 0, k);
		Sk:= S[k]; Scum:= Scum + Sk; ABSFIXT (8, 0, Scum);
		app:= lab * k * (k + 1); ABSFIXT (8, 4, app);
		err:= app - Scum; FIXT (8, 4, err); FIXT (8, 8, err / k); FIXT (2, 12, err / Scum);
		for q:= k + k step k until 1000 do S[q]:= S[q] - Sk
	end
end