помогите плизз написать прогу в паскале: Вычислить значение n! для любого n<15.

program z;
var i,n:byte;
p:word;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln(n,'!=',p)
end.
В задаче необходимо определить n!.
n!=произведению чисел натурального ряда от 1 до n.