Add multilingual language and systems learning tracks

en/objectpascal-practice-20261101/lesson-3/main.pas

@@ -0,0 +1,14 @@
+program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+function Remaining(Total, Done: Integer): Integer;
+begin
+  if Done >= Total then Result := 0 else Result := Total - Done;
+end;
+
+begin
+  Assert(Remaining(4,1)=3);
+  Assert(Remaining(4,4)=0);
+  Assert(Remaining(4,5)=0);
+  Assert(Remaining(0,0)=0);
+  writeln('Passed');
+end.