4_28

algoritmo "4_28"
      declare n1, n2, dividendo, divisor, qd:inteiro;
      declare r:inteiro;
      leia(n1);
      leia(n2);
      dividendo <- n1;
      divisor <- n2;
      qd <- 0;
      enquanto (dividendo - divisor >= 0) faca
               se (dividendo - divisor >= 0) entao
                  qd <- qd + 1;
               fimse
               r <- dividendo - divisor;
               dividendo <- r;
      fimenquanto
      escreval(qd);
      escreval(r);
fimalgoritmo