Add multilingual language and systems learning tracks

en/pascal-practice-20261101/README.md

@@ -0,0 +1,9 @@
+# Pascal — build and test
+
+[Agila University track](https://edu.agilaos.com/track.php?track=9&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/pascal-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><code>begin</code> and <code>end</code> enclose statements. <code>:=</code> assigns; <code>=</code> compares. The final program terminator is <code>end.</code>. This course uses Free Pascal in Object Pascal mode while starting with 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>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://www.freepascal.org/docs.html">Language reference</a></p></html>

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

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

@@ -0,0 +1,10 @@
+<!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><code>begin</code> and <code>end</code> enclose statements. <code>:=</code> assigns; <code>=</code> compares. The final program terminator is <code>end.</code>. This course uses Free Pascal in Object Pascal mode while starting with 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>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://www.freepascal.org/docs.html">Language reference</a></p></html>

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

en/pascal-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><code>begin</code> and <code>end</code> enclose statements. <code>:=</code> assigns; <code>=</code> compares. The final program terminator is <code>end.</code>. This course uses Free Pascal in Object Pascal mode while starting with 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;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://www.freepascal.org/docs.html">Language reference</a></p></html>

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