Add multilingual language and systems learning tracks

tl/pascal-practice-20261101/README.md

@@ -0,0 +1,9 @@
+# Pascal — pagbuo at pagsubok
+
+[Agila University track](https://edu.agilaos.com/track.php?track=9&lang=tl)
+
+Mga 15 minuto bawat aralin. Hulaan, patakbuhin, baguhin, ipaliwanag, at sagutan ang pagsusulit sa University.
+
+- [Lesson 1: Collection at paulit-ulit na gawain](lesson-1/lesson.html)
+- [Lesson 2: Isang mahalagang katangian ng wika](lesson-2/lesson.html)
+- [Lesson 3: Bumuo, sirain, at subukan ang study planner](lesson-3/lesson.html)

tl/pascal-practice-20261101/lesson-1/lesson.html

@@ -0,0 +1,11 @@
+<!doctype html><html lang="tl"><meta charset="utf-8"><title>Collection at paulit-ulit na gawain</title><h1>Collection at paulit-ulit na gawain</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>Nag-iimbak ng magkakaugnay na value ang collection. Binibisita ng loop ang 1, 2, at 3; mula 0 ay nagiging 1, 3, at 6 ang total. Itala ang trace sa halip na manghula. Tukuyin ang una at huling valid na posisyon: maaaring 1-based ang Pascal array samantalang zero-based ang maraming ibang container. Magdagdag ng value at itama ang bounds. Ipaliwanag ang resulta para sa empty collection.</p><p>Nakapaloob sa <code>begin</code> at <code>end</code> ang mga statement. Assignment ang <code>:=</code>; comparison ang <code>=</code>. <code>end.</code> ang pagtatapos ng programa. Free Pascal sa Object Pascal mode ang gamit, mula sa procedural constructs.</p><pre><code class="language-pascal">program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+var Minutes: array[1..3] of Integer; I, Total: Integer;
+begin
+  Minutes[1] := 1; Minutes[2] := 2; Minutes[3] := 3;
+  Total := 0;
+  for I := Low(Minutes) to High(Minutes) do Total := Total + Minutes[I];
+  writeln(Total);
+end.
+</code></pre><p><strong>Inaasahang resulta:</strong> <code>6</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://www.freepascal.org/docs.html">Sanggunian sa wika</a></p></html>

tl/pascal-practice-20261101/lesson-1/main.pas

@@ -0,0 +1,10 @@
+program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+var Minutes: array[1..3] of Integer; I, Total: Integer;
+begin
+  Minutes[1] := 1; Minutes[2] := 2; Minutes[3] := 3;
+  Total := 0;
+  for I := Low(Minutes) to High(Minutes) do Total := Total + Minutes[I];
+  writeln(Total);
+end.

tl/pascal-practice-20261101/lesson-2/lesson.html

@@ -0,0 +1,10 @@
+<!doctype html><html lang="tl"><meta charset="utf-8"><title>Isang mahalagang katangian ng wika</title><h1>Isang mahalagang katangian ng wika</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>Gamitin ang tala sa wika sa ibaba upang ipaliwanag ang pagbabago ng state. Tukuyin kung ano ang kinokopya, pinagsasaluhan, maaaring mabigo, at inilalabas. Hindi lahat ng tanong ay naaangkop sa programang ito: sabihin kung alin. Gumawa ng isang pagbabago, hulaan ang epekto, at ihambing sa aktuwal na resulta. Maaaring iba ang patakaran ng pamilyar na operator sa ibang wika.</p><p>Nakapaloob sa <code>begin</code> at <code>end</code> ang mga statement. Assignment ang <code>:=</code>; comparison ang <code>=</code>. <code>end.</code> ang pagtatapos ng programa. Free Pascal sa Object Pascal mode ang gamit, mula sa procedural constructs.</p><pre><code class="language-pascal">program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+type StudyPlan = record Total, Done: Integer; end;
+var Plan: StudyPlan;
+begin
+  Plan.Total := 4; Plan.Done := 1;
+  writeln(Plan.Total - Plan.Done);
+end.
+</code></pre><p><strong>Inaasahang resulta:</strong> <code>3</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://www.freepascal.org/docs.html">Sanggunian sa wika</a></p></html>

tl/pascal-practice-20261101/lesson-2/main.pas

@@ -0,0 +1,9 @@
+program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+type StudyPlan = record Total, Done: Integer; end;
+var Plan: StudyPlan;
+begin
+  Plan.Total := 4; Plan.Done := 1;
+  writeln(Plan.Total - Plan.Done);
+end.

tl/pascal-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>Nakapaloob sa <code>begin</code> at <code>end</code> ang mga statement. Assignment ang <code>:=</code>; comparison ang <code>=</code>. <code>end.</code> ang pagtatapos ng programa. Free Pascal sa Object Pascal mode ang gamit, mula sa procedural constructs.</p><pre><code class="language-pascal">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://www.freepascal.org/docs.html">Sanggunian sa wika</a></p></html>

tl/pascal-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.