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

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.