Помогите написать простенькие программки! Язык не важен-от Бэйсика до Си++

#include <iostream>
#include <iomanip>
using namespace std;
unsigned long long fact(unsigned long long);
unsigned long long summa(unsigned long long);
int main() {
    unsigned long long x;
    while (true) {
        bool flag = true;
        while (flag) {
            cout << "N?.. ";
            cin >> x;
            if (cin.good()) {
                if (x < 1 || x > 20) continue;
                double y = double(fact(x)) / summa(x);
                cout << "Result = " << setprecision(17) << y << endl;
                flag = false;
            } else {
                cin.clear();
                cin.ignore(12,'\n');
            }
        }
    }
    cin.get(); cin.get();
    return 0;
}
unsigned long long fact(unsigned long long x) {
    return (x == 0) ? 1 : x * fact(x - 1ull);
}
unsigned long long summa(unsigned long long x) {
    return (x == 0) ? 0 : x + summa(x - 1ull);
}

На F# могу смеху ради
только непонятно что вы с этим будете делать. .

ну как то так 1 будет
http://pastebin.com/YStdphDs

VB 6
1)
Function Fact(n)
Dim i As Integer
Fact = 1
For i = 1 To n
Fact = Fact*i
Next i
End Function

Sub FactSumm
Dim N As Integer, Sum As Integer, SN As Single, Mes As String
N = InputBox ("Введите N")
Sum = N*(N+1)/2
SN = Fact(N) / Sum
Mes = "Отношение факториала к сумме равно" & SN
MsgBox (Mes)
End Sub

2)
Sub Triangle
Dim Ax As Integer, Ay As Integer, Bx As Integer, By As Integer, Cx As Integer, Cy As Integer
Dim AB As Single, AC As Single, BC As Single, P As Single, S As Single, Mes As String
AB = Sqr((Bx - Ax)^2 + (By - Ay)^2): BC = Sqr((Cx - Bx)^2 + (Cy - By)^2): AC = Sqr((Cx - Ax)^2 + (Cy - Ay)^2)
P = AB + BC + AC
S = Sqr(P/2*(P/2 - AB)*(P/2 - AC)*(P/2 - BC))
Mes = "Периметр Р = " & P & "; Площадь S = " & S
MsgBox (Mes)
End Sub