Add Pony version

STATUS.md

@@ -54,6 +54,7 @@ This file is used to track the language used in the current implementations:
 - [x] Perl
 - [x] PHP
 - [ ] PogoScript
+- [x] Pony
 - [x] Potigol
 - [ ] Processing
 - [x] Progress - OpenEdge

pony/main.pony

@@ -0,0 +1,7 @@
+actor Main
+  new create(env: Env) =>
+    let s = Wesley.safadeza(1, 6, 96)
+    let a = Wesley.angel(s)
+    let message = Wesley.formatMessage(s, a)
+    env.out.print(message)
+

pony/wesley.pony

@@ -0,0 +1,26 @@
+primitive BasicMath
+  fun sum(x: F32): F32 =>
+    var count: F32 = 1
+    var sumValue: F32 = 0
+
+    while count <= x do
+      sumValue = sumValue + count
+      count = count + 1
+    end
+
+    sumValue
+
+primitive Wesley
+  fun safadeza(day: F32, month: F32, year: F32): F32 =>
+    let m = BasicMath.sum(month)
+    let y = year / 100
+    let d = 50 - day
+
+    m + (y * d)
+
+  fun angel(safadezaPercent: F32): F32 =>
+    100 - safadezaPercent
+
+  fun formatMessage(safadaoPercent: F32, angelPercent: F32): String =>
+    "Você é " + safadaoPercent.string() + "% safado e " + angelPercent.string() + "% anjo"
+