Определите, что будет выведено в результате выполнения следующей программы.

Question

Program r_5;
    var i, m, d: integer;
      const: a: array[1...10] of integer =(1, 7,-7,-2,3,6,9,0,8,-10);
begin
    m:=a[1]; d:=1;
    for i:=2 to 10 do
        if m>a[ i ] then begin
                d:=i;
                m:=a[ i] ;
         end;
writeln('d=', d, 'm=,' m) ;
end.