Un algoritmo básico para dividir números enteros positivos n div m, donde n>=m

procedimiento dividir(n,m)
{
  c:=0; // inincializa el contador del cociente
  mientras n>=m hacer
    {
      n:=n-m; // actualiza el residuo
      c:=c+1; // actualiza el contador del cociente
    }
  escribir("cociente=",c);
  escribir("resto=",n);
}