В таблице Dat хранятся положительные и отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма. C объяснением, пожалуйстаvar k, m, num: integer;Dat: array[1..10] of integer;beginDat [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 [1];for k:= 2 to 10 do beginif Dat [k] * m < 0 thenbeginm := Dat [k]; num := kendend;write (num);end.