End of Prac2

programs/add.tri

@@ -0,0 +1,22 @@
+let
+    var a: Integer;
+    var b: Integer
+in
+begin
+    ! Get user input for both values
+    put('>'); put(' '); getint(var a);
+    put('>'); put(' '); getint(var b);
+
+    ! Sum
+    putint(a+b);
+    puteol();
+
+    ! Prod.
+    putint(a*b);
+    puteol();
+
+    ! Check if the same
+    if a = b
+       then    begin put('S'); put('a'); put('m'); put('e'); put('!'); end
+       else    !nothing
+end

programs/errors.tri

@@ -7,7 +7,7 @@ let
 
   var me: Name;
   var silly : maxint;
-  var silly: Rec;
+ ! var silly: Rec; ! [PRAC2:5] Fixed error about "silly"
 
   proc putstr (s: String) ~
     let var i: Integer

programs/triangle.tri

@@ -1,5 +1,4 @@
 let
-
  proc putmany (n: Integer, c: Char) ~
   let
    var i: Integer