diff --git a/teste6.pas b/teste6.pas
new file mode 100644
index 0000000000000000000000000000000000000000..3deef6f12830188fc9fb9db7a79bcfe9654ade57
--- /dev/null
+++ b/teste6.pas
@@ -0,0 +1,47 @@
+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