Var i,X,Y:Entero ' Declaramos las variables a utilizar