/* Tabelline */

var max1, max2;

writemsg "massimo valore primo fattore? ";
read max1;

writemsg "massimo valore secondo fattore? ";
read max2;


var i, j;
for (i, 1, max1)
  for (j, i, max2) {
    write i;
    writemsg " per ";
    write j;
    writemsg " e' uguale a ";
    write i * j;
    writeln;
  }