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   " calcular divisão"

var

  x,y,soma,vezes : 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<y) entao

       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

fimalgoritimo