Написать программку вычисления n!

var 

  n, fact: word;  //fact - факториал числа

  i: integer;

begin

  fact:= 1;  //Присваиваем изначальное значение

  writeln('Введите число n');

  readln(n);

  for i:= 1 to n do   //Для i, одинакового от 1 до n умножаем значение fact на i

    fact:= fact * i;

  writeln(n, '! = ', fact);

end.

Отметь решение, как превосходнейшее, плиз)