2016 Update

Task/Jensens-Device/Pascal/jensens-device.pascal

@@ -0,0 +1,27 @@
+{$MODE objFPC}
+type
+  tTerm = function(i: integer):real;
+
+function term(i:integer):real;
+Begin
+  term := 1/i;
+end;
+
+function sum(var i: LongInt;
+              lo,hi: integer;
+              term:tTerm):real;
+
+Begin
+  result := 0;
+  i := lo;
+  while i<=hi do begin
+    result := result+term(i);
+    inc(i);
+    end;
+end;
+
+var
+  i : LongInt;
+Begin
+  writeln(sum(i,1,100,@term));
+end.