bfact.BAS

{* Факториал числа *}

REM basic

'  Факториал - это произведение чисел
' от 1 до а. Например, 5! (факториал пяти) - это
' 5!=1*2*3*4*5


a=5
f=1
For I=1 To a
f=f*I
Next
PRINT f
End