Viết chương trình pascal với n là số nguyên nhỏ hơn 50

Viết chương trình pascal tính  s=1.2.3….n.  Với n là số nguyên nhỏ hơn 50.