/* calcolo del fattoriale */

var n;
writemsg "Numero? ";
read n;

if (n < 0) {
  writemsg "Impossibile calcolare il fattoriale di numeri negativi!";
  writeln;
} else {
  var fattoriale;
  fattoriale = 1;
  while (n > 1) {
    fattoriale = fattoriale * n;
    n = n - 1;
  }
  writemsg "Il fattoriale vale ";
  write fattoriale;
  writeln;
}