/* Calcolo del massimo comun divisore 
   mediante l'algorimo di Euclide */

var dividendo, divisore;

writemsg "Primo numero? ";
read dividendo;
writemsg "Secondo numero? ";
read divisore;
   
while (divisore != 0) {
   var resto;
   resto = dividendo % divisore;
   dividendo = divisore;
   divisore = resto;
}
writemsg "il massimo comun divisore e' ";
write dividendo;
writeln;