var
	ar: array [1..10] of integer;
	k, a, y: integer;
	p, n: string;
	
function IntToStr(i: integer): string;
var t: string;
begin
	str(i,t);
	IntToStr := t;
end;

begin
	randomize;
	for y := 1 to 10 do
	begin
		ar[y] := random(40) - 20;
		write(ar[y], ' ');
	end;
	p := ''; n := '';
	for y := 1 to 10 do
		if ar[y] >= 0 then
		begin
			p := p + IntToStr(ar[y]) + ' ';
			ar[y] := 1;
		end
		else
		begin
			n := n + IntToStr(ar[y]) + ' ';
			ar[y] := 0;
		end;
		
	k := 0;
	for y := 1 to 10 do
		k := k + ar[y];

	writeln;
	if k > 5 then 
		writeln('ПОЗИТИВЧИИИИИИИИИИК ^))))))))))))))))))))))))))))))))))))')
	else
		if k = 5 then 
			writeln('ПОХУЙ @ ПОХУЙ')
		else
			writeln('ЗАЩООООООООООО');
end.