txt.txt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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.