PASCAL - Cálculo Fatorial

program Fatorial;

var

  n, fatorial: integer;

begin

  writeln('Introduza um número:');

  readln(n);

  fatorial := 1;

  for i := 1 to n do

    fatorial := fatorial * i;

  writeln('O fatorial de ', n, ' é ', fatorial);

end.