Question

В таблице Dat хранятся положительные и отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма.
var k,m,num:integer;
Dat: array[1..10] of integer;
begin
dat[1]:=6; dat[2]:=-1; dat[3]:=2; dat[4]:=9; dat[5]:=-4; dat[6]:=3;
dat[7]:=9;dat[8]:=-7;dat[9]:=7;dat[10]:=1;num:=1;m:=dat[1];
for k:=2 to 10 do begin
if dat[k] < 2*m then
begin
m:=dat[k];
num:=k
end
end;
write(num);
end.