Написать алгоритм "Найти n! "

Код ниже

program factorial;

var n, d, i: integer;

begin

   writeln('Введите n');

   readln(n);

   d := 1;

   for i := 1 to n do begin

       d := d*i;

   end;

   writeln('Факториал числа ', n, ' равен ', d);

end.