Помогите составить прогу (таблица значений)

[HentaiSan]

Вычислить и вывести таблицу значений c=n!/k'(n-k)' , для n = 2+8n и k=1+(n-1). Для рассчёта факториала применить подпрограмму. Очень прошу, помогите, тк вобще идей нет.

[alex_fcsm]

function fact(X: Integer): Integer;

begin
if X>1 then fact:=X*fact(X-1)
else fact:=1;
end;

[HentaiSan]

Забыл написать. Программу надо сделать под Visual Studio 2005

[HentaiSan]

Как под бэйсиком написать подпрограмму для факториала? Просто взяв алгоритм предложенного способа появляется ошибка что на 0 делить нельзя(вот код):

Function fact(ByVal X As Integer) As Integer
fact = 1
If X > 1 Then
fact = X * fact(X - 1)
Else
fact = 1
End If
Return fact
End Function