Add multilingual language and systems learning tracks

tl/objectpascal-practice-20261101/lesson-3/lesson.html

@@ -0,0 +1,15 @@
+<!doctype html><html lang="tl"><meta charset="utf-8"><title>Bumuo, sirain, at subukan ang study planner</title><h1>Bumuo, sirain, at subukan ang study planner</h1><p>15-minutong sesyon: magbasa nang 3 minuto, mag-trace nang 3, mag-eksperimento nang 7, at sagutan ang check nang 2. Maglaan ng dagdag na oras kung kailangan.</p><p>Inihahambing ng makabuluhang test ang resulta sa requirement. Hindi dapat maging negative ang natitirang gawain sa nonnegative input domain ng planner. Patakbuhin ang starter, sadyang alisin ang proteksiyon kapag lampas sa total ang completed, at tiyaking may check na mabibigo. Ibalik ito. Magdagdag ng dalawang study task, summary, at boundary cases. I-save ang source at ebidensiya sa Agila Forge. Ipaliwanag ang bawat linya, pati mungkahi ng AI.</p><p>Magkaiba ang Object Pascal classes at Objective-Pascal. Unahin ang <code>class</code>, construction, at <code>Free</code> sa Linux lab. Nagdaragdag ng Objective-C interoperability ang Objective-Pascal sa pamamagitan ng mode switches; wala sa lab ang Apple runtime na iyon.</p><pre><code class="language-objectpascal">program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+function Remaining(Total, Done: Integer): Integer;
+begin
+  if Done &gt;= 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(&#x27;Pumasa&#x27;);
+end.
+</code></pre><p><strong>Inaasahang resulta:</strong> <code>Pumasa</code></p><h3>Pagsasanay at ebidensiya</h3><p>Itala ang hula, aktuwal na resulta, at dahilan ng pagtugma o pagkakaiba. Sinusukat ng completion check ang pag-unawa; hinahasa ng practice task ang kasanayan.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Sanggunian sa wika</a></p></html>

tl/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('Pumasa');
+end.