AAAAAAAAAAAAAAAAAAAAAAAAAAAA

1 files changed, 24 insertions, 0 deletions

diff --git a/txt.txt b/txt.txt
new file mode 100644
index 0000000..afd934b
--- /dev/null
+++ b/txt.txt
@@ -0,0 +1,24 @@
+program exemplo1

+	var 

+		n, s, i: integer;

+	procedure soma;

+		var q: integer;

+	begin

+		q:=i*i;

+		if (i div 2)*2 = i then

+			s:=s+q;

+		else

+			s:=s-q;

+	end;

+begin

+	read(n);

+	s:=0; i:=0;

+	while i<=n do

+	begin	

+		soma;

+		write (s);

+		i:=i+1;

+	end

+end.

+			

+			
\ No newline at end of file