4_26

algoritmo "4_26"

      declare a, b, n1, n2, r:inteiro;
      leia(n1);
      leia(n2);
      a <- n1;
      b <- n2;
      faca
            r <- resto(a, b);
            a <- b;
            b <- r;
      enquanto(r != 0)
      escreval( (n1*n2)/a );
fimalgoritmo