PROGRAM FACTORIAL;
BEGIN
    ITEM N,FACT,I;
    N = 5;
    FACT = 1;
    FOR I = 1 TO N;
        FACT = FACT * I;
    END;
    WRITE(FACT);
END.