var a:array[1..50] of integer;
n,n1,nom,T,i,min:integer;
fl:boolean;
begin
fl:=true;
writeln('Kol-vo elementov?');
readln(n);
writeln('T = ?');
readln(T);
writeln('Vvodite elementu');
for i:=1 to n do
readln(a[i]);
n1:=0;
for i:=1 to n do
if (a[i]>T) and (n1=0) then n1:=i;
for i:=n1 to n do
if (a[i]>0) and (fl=true) then begin
nom:=i; min:=a[i]; fl:=false; end
else if (a[i]>0) and (a[i]<min) then begin
nom:=i; min:=a[i]; end;
writeln('Kol-vo elementov: ',n);
writeln('Massiv: ');
for i:=1 to n do
write(a[i],' ');
writeln(' ');
writeln('T= ',T);
if n1=0 then writeln('Net elementov bolshe T')
else if fl=true then
writeln('Net polozhitelnuh elementov') else
writeln('Otvet: ',nom);
readln;
end.