program abc;
const
	n = 21;
	a: array [1..n] of integer = (-10, -9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10);
var
	i, m1, m2, m3, i1, i2, i3: integer;
	a1, a2, a3: array of integer;
begin
	m1 := 0;
	m2 := 0;
	m3 := 0;
	
	i1 := 0;
	i2 := 0;
	i3 := 0;
	
	for i := 1 to n do
	begin
		if (a[i] > 0) and (a[i] mod 2 = 0) then inc(m1)
		else if (a[i] > 0) and (a[i] mod 2 <> 0) then inc(m2)
		else inc(m3);
	end;
	
	setlength(a1, m1);
	setlength(a2, m2);
	setlength(a3, m3);
	

	
	for i := 1 to n do
	begin
		if (a[i] > 0) and (a[i] mod 2 = 0) then
		begin
			a1[i1] := a[i];
			inc(i1);
		end else if (a[i] > 0) and (a[i] mod 2 <> 0) then
		begin
			a2[i2] := a[i];
			inc(i2);
		end else begin
			a3[i3] := a[i];
			inc(i3);
		end;
	end;
	
	write('Polojitelniye, chetniye: ');
	for i := 0 to m1-1 do
	begin
		write(a1[i]:4);
	end;
	
	writeln();
	
	write('Polojitelniye, nechetniye: ');
	for i := 0 to m2-1 do
	begin
		write(a2[i]:4);
	end;
	
	writeln();
	
	write('Ostalniye: ');
	for i := 0 to m3-1 do
	begin
		write(a3[i]:4);
	end;
	
	
end.