program mn;
uses crt;
var a:array[1..100]of integer;
i,n,s1,s2:integer;
BEGIN
ClrScr;
Write('N:');readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(70)-45;
if a[i]<0
then s1:=s1+abs(a[i])
else s2:=s2+abs(a[i]);
Write(a[i]:4);
end;
writeln;
if s1>s2
then writeln('Otricatelnie')
else writeln('pologitelnie');
readln;
END.