program minmastwo;
uses crt;
const
    n=10;
type
    mas=array[1..n] of integer;
var m:mas;
    i,k,a:byte;
    t:real;
begin
    clrscr;
    repeat
        write('Enter n mas:');
        read(k);
        if (k<1) or (k>n) then
            writeln('Error ',k,'<0 and',k,'>n');
    until (k>0) and (k<=n);
    write('Vvedite el mas: ');
    a:=0;
    for i:=1 to k do
    begin
        readln(t);
        if (t<-10) then
        begin
            a:=a+1;
            m[a]:=i;
        end;
    end;
    writeln('El: ',a);
    for i:=1 to a do
    begin
        writeln(m[i]);
    end;
end.