Add multilingual language and systems learning tracks

ceb/objectpascal-practice-20261101/lesson-1/lesson.html

@@ -0,0 +1,11 @@
+<!doctype html><html lang="ceb"><meta charset="utf-8"><title>Collection ug balikbalik nga buluhaton</title><h1>Collection ug balikbalik nga buluhaton</h1><p>15-minutong sesyon: pagbasa sulod sa 3 minutos, pag-trace sa 3, pag-eksperimento sa 7, ug pagtubag sa check sa 2. Paggahin og dugang oras kon gikinahanglan.</p><p>Ang collection nagtipig sa may kalabotang value. Bisitahon sa loop ang 1, 2, ug 3; ang total gikan sa 0 mahimong 1, 3, ug 6. Isulat ang trace imbes manag-an. Ilha ang una ug kataposang valid nga posisyon: mahimong 1-based ang Pascal array samtang zero-based ang daghang ubang container. Idugang og value ug taronga ang bounds. Ipasabot ang resulta alang sa empty collection.</p><p>Lahi ang Object Pascal classes ug Objective-Pascal. Unaha ang <code>class</code>, construction, ug <code>Free</code> sa Linux lab. Ang Objective-Pascal modugang og Objective-C interoperability pinaagi sa mode switches; wala sa lab ang maong Apple runtime.</p><pre><code class="language-objectpascal">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>Gipaabot nga resulta:</strong> <code>6</code></p><h3>Praktis ug ebidensiya</h3><p>Isulat ang tagna, aktuwal nga resulta, ug hinungdan sa pagkapareho o kalainan. Ang completion check mosukod sa pagsabot; ang practice task mopauswag sa kahanas.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Reperensiya sa pinulongan</a></p></html>

ceb/objectpascal-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.