6) Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-).

algoritmo "Calcula Divisão com subtração"

  var
    x,y,vezes,soma:inteiro

inicio
  y<-0
  soma<- 0
  escreva("Entre com um número:")
  leia(x)
  escreva("Entre com um número divisor:")
  leia(y)
   se(x
     escreva("Não é possível realizar uma divisão inteira")
   senao
     soma<-x
     vezes<-0
       repita
         soma<-soma-y
         vezes<-vezes+1
       ate(soma=0)
         escreval(x," / ",y," = ",vezes)
   fimse
fimalgoritmo