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