First commit

examples/logica.pas

@@ -0,0 +1,14 @@
+program Logica;
+var
+  a, b, c : integer;
+begin
+  a := 1;
+  b := 2;
+  c := 3;
+  if not a = b and c <> a or a <= c then
+    write('o')
+  ;
+  while a < b do
+    a := a + 1
+  ;
+end.