inicia chamada de procedimentos

teste6.pas

+program proc1 (input, output);
+    var x, y: integer;
+    procedure p;
+        var z:integer;
+    begin
+        z:=x;
+        x:=x-1;
+        if (z>1)
+            then p
+            else y:=1;
+        y:=y*z
+    end
+begin
+    read(x);
+    p
+    write (x,y)
+end.
+
+//      INPP
+//      AMEM 2
+//      DSVS R00
+// R01: ENPR 1 
+//      AMEM 1
+//      DSVS R02
+// R02: NADA 
+//      CRVL 0, 0
+//      ARMZ 1, 0
+//      CRVL 0, 0
+//      CRCT 1
+//      SUBT
+//      ARMZ 0, 0
+//      CRVL 1, 0
+//      CRCT 1
+//      CMMA
+//      DSVF R04
+//      CHPR R01, 1
+//      DSVS R03
+// R04: NADA 
+//      CRCT 1
+//      ARMZ 0, 1
+// R03: NADA 
+//      CRVL 0, 1
+//      CRVL 1, 0
+//      MULT
+//      ARMZ 0, 1
+//      DMEM 1
+//      RTPR 1, 0
\ No newline at end of file