First commit

examples/contador.pas

@@ -0,0 +1,9 @@
+program Contador;
+var
+  i : integer;
+begin
+  i := 0;
+  repeat
+    i := i + 1;
+  until i >= 10;
+end.

examples/erro.pas

@@ -0,0 +1,6 @@
+program Erro;
+var
+  x : integer
+begin
+  x := 1;
+end.

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.

examples/somaimpares.pas

@@ -0,0 +1,17 @@
+program SomaImpares;
+var
+  n : integer;
+  i, proximoImpar, soma : integer;
+begin
+  n := 4;
+  i := 0;
+  soma := 0;
+  while i < n do
+  begin
+    proximoImpar := 2*i + 1;
+    soma := soma + proximoImpar;
+    i := i + 1;
+  end;
+  write(soma);
+  write('\n');
+end.

examples/testaparidade.pas

@@ -0,0 +1,12 @@
+program TestaParidade;
+var
+  n : integer;
+begin
+  n := 2 * 13 + 5;
+  if n = (n div 2)*2 then
+    write('p')
+  ;
+  else
+    write('i')
+  ;
+end.

examples/tipos.pas

@@ -0,0 +1,15 @@
+program Tipos;
+var
+  a, b : integer;
+  c : real;
+  d : char;
+begin
+  a := 1;
+  b := 2;
+  c := 1.5 + 2.5 * 2.0;
+  d := 'x';
+  write(a);
+  write(b);
+  write(c);
+  write(d);
+end.