Changeset 18 for trunk/Example.pas

Timestamp:

Apr 9, 2009, 11:17:38 AM (15 years ago)

Author:

george

Message:

• Upraveno: Vylepšené parsování.

File:

• trunk/Example.pas (modified) (1 diff)

trunk/Example.pas

@@ -1 +1 @@
 program Test;
 var
-  A: Byte;
+  a: Byte;
+  B: Byte;
 begin
-  A := 'a' + (10 + 2) * 3 xor 10 / 2;
+  A := 'a' + (10 + 2 * 3 + 2) xor 10 / 2;
+  B := 20;
   while A < 10 do A := A + 1;
+
 end;