var i,s,n:integer;
a:array[1..1000] of real;
begin
write('n=? ');read(n);
write('s=? ');read(s);
for i:=1 to n do begin
a[i]:=random(100)-50;writeln(i,'    ',a[i],' ');
end;
writeln('    s=',s,'   ',a[s]);
if (a[s]>0) then write('pol') else write('не является');
end.