comment	hulpprogramma R 764, MLP 140862 / 2042;
begin	integer k; real x, y;
	for k:= 0 step 1 until 100 do
	begin	x:= k / 10; y:= 1.2219 * x - 0.23111 * x ** 2 + 0.23951 * x ** 3 - 0.021009 * x ** 4 + 0.0008404 * x ** 5;
		if k = k % 10 * 10 then NLCR; FIXT (4, 4, y)
	end
end