let
	var i:=1
in
	for i:=10 to (1+3*2-5-3*2+10) do
	(
		i:=i+1
	);
	i-1
end