Add multilingual language and systems learning tracks

en/objectpascal-practice-20261101/README.md

@@ -0,0 +1,9 @@
+# Object Pascal & Objective-Pascal — build and test
+
+[Agila University track](https://edu.agilaos.com/track.php?track=10&lang=en)
+
+About 15 minutes per lesson. Predict, run, change, explain, then complete the check in University.
+
+- [Lesson 1: Collections and repeated work](lesson-1/lesson.html)
+- [Lesson 2: A language feature worth understanding](lesson-2/lesson.html)
+- [Lesson 3: Build, break, and test a study planner](lesson-3/lesson.html)

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

@@ -0,0 +1,11 @@
+<!doctype html><html lang="en"><meta charset="utf-8"><title>Collections and repeated work</title><h1>Collections and repeated work</h1><p>15-minute session: read for 3 minutes, trace for 3, experiment for 7, and complete the check for 2. Spend longer whenever you need.</p><p>A collection stores related values. The loop visits 1, 2, and 3, updating the total from 0 to 1, then 3, then 6. Record this trace rather than guessing. Identify the first and last valid positions in this language: Pascal can declare a 1-based array, while many other examples use zero-based containers. Add another value and update the bounds correctly. Explain what an empty collection should produce.</p><p>Object Pascal classes and Objective-Pascal are distinct. First learn <code>class</code>, construction, and <code>Free</code> using the Linux lab. Objective-Pascal adds Objective-C interoperability through mode switches; this lab does not provide that 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>Expected result:</strong> <code>6</code></p><h3>Practice and evidence</h3><p>Keep three notes: your prediction, the actual result, and why they match or differ. The completion check grades understanding; the practice task builds skill.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Language reference</a></p></html>

en/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.

en/objectpascal-practice-20261101/lesson-2/lesson.html

@@ -0,0 +1,17 @@
+<!doctype html><html lang="en"><meta charset="utf-8"><title>A language feature worth understanding</title><h1>A language feature worth understanding</h1><p>15-minute session: read for 3 minutes, trace for 3, experiment for 7, and complete the check for 2. Spend longer whenever you need.</p><p>Use the language note below to explain this example’s state changes. Identify what is copied, what is shared, what can fail, and what is released. Only some of those questions apply to this particular program: say which ones. Make one deliberate change, predict the effect, and compare it with the actual result. A familiar-looking operator in another language may obey a different rule.</p><p>Object Pascal classes and Objective-Pascal are distinct. First learn <code>class</code>, construction, and <code>Free</code> using the Linux lab. Objective-Pascal adds Objective-C interoperability through mode switches; this lab does not provide that Apple runtime.</p><pre><code class="language-objectpascal">program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+type TPlan = class
+  public Done: Integer;
+end;
+var Plan: TPlan;
+begin
+  Plan := TPlan.Create;
+  try
+    Plan.Done := 3;
+    writeln(Plan.Done);
+  finally
+    Plan.Free;
+  end;
+end.
+</code></pre><p><strong>Expected result:</strong> <code>3</code></p><h3>Practice and evidence</h3><p>Keep three notes: your prediction, the actual result, and why they match or differ. The completion check grades understanding; the practice task builds skill.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Language reference</a></p></html>

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

@@ -0,0 +1,16 @@
+program AgilaStudy;
+{$mode objfpc}{$H+}{$assertions on}
+
+type TPlan = class
+  public Done: Integer;
+end;
+var Plan: TPlan;
+begin
+  Plan := TPlan.Create;
+  try
+    Plan.Done := 3;
+    writeln(Plan.Done);
+  finally
+    Plan.Free;
+  end;
+end.

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

@@ -0,0 +1,15 @@
+<!doctype html><html lang="en"><meta charset="utf-8"><title>Build, break, and test a study planner</title><h1>Build, break, and test a study planner</h1><p>15-minute session: read for 3 minutes, trace for 3, experiment for 7, and complete the check for 2. Spend longer whenever you need.</p><p>A useful test compares a result with a requirement. The planner must never report negative remaining work for its stated nonnegative input domain. Run the starter, then deliberately remove the protection for completed counts above total. At least one check should fail. Restore it. Add two named study tasks, a summary, and boundary cases. Save the source and evidence on Agila Forge. Explain every line, including anything suggested by AI.</p><p>Object Pascal classes and Objective-Pascal are distinct. First learn <code>class</code>, construction, and <code>Free</code> using the Linux lab. Objective-Pascal adds Objective-C interoperability through mode switches; this lab does not provide that Apple runtime.</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;Passed&#x27;);
+end.
+</code></pre><p><strong>Expected result:</strong> <code>Passed</code></p><h3>Practice and evidence</h3><p>Keep three notes: your prediction, the actual result, and why they match or differ. The completion check grades understanding; the practice task builds skill.</p><p><a href="https://docs.freepascal.org/daily/doc/ref/refse74.html">Language reference</a></p></html>

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.