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

[111]

var k, m, num: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:= 7; Dat[2]:= -8;
Dat[3]:= 3; Dat[4]:= 6;
Dat[5]:= -4; Dat[6]:= 3;
Dat[7]:= 5; Dat[8]:= -5;
Dat [9] := 7; Dat[10] := 1;
num:= 1; m:= Dat[l];
for k:= 2 to 10 do begin
if Dat[k] * m < 0 then
begin
m := Dat [k]; num := k
end
end;
write(num);
end.