factorial.imp 48 Bytes
Newer Older
Alex Simpson's avatar
Alex Simpson committed
1
Y := 1 ; while 0 < X do Y := Y * X ; X := X - 1