Add multilingual language and systems learning tracks

en/pascal-foundations-20261101/lesson-3/main.pas

@@ -0,0 +1,10 @@
+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
+  writeln(Remaining(4, 1));
+end.