Data update

Task/Count-the-coins/Pascal/count-the-coins.pas

@@ -0,0 +1,24 @@
+program countTheCoins;
+
+{$mode objfpc}{$H+}
+
+var
+  count, quarter, dime, nickel, penny: integer;
+
+begin
+  count := 0;
+
+  for penny := 0 to 100 do
+    for nickel := 0 to 20 do
+      for dime := 0 to 10 do
+        for quarter := 0 to 4 do
+          if (penny + 5 * nickel + 10 * dime + 25 * quarter = 100) then
+          begin
+            writeln(penny, ' pennies ', nickel, ' nickels ', dime, ' dimes ', quarter, ' quarters');
+            count := count + 1;
+          end;
+
+
+  writeln('The number of ways to make change for a dollar is: ', count); // 242 ways to make change for a dollar
+
+end.