Вычислить произведение всех натуральных чисел от 1 до n в Бейсике.
P=1 input n for i=1 to n p=p*i next print p