ПОМОГИТЕ Безотлагательно! ОТВЕТ Разъяснить ПОДРОБНЕЕ!В таблице Dat хранятся положотельные либо

ПОМОГИТЕ СРОЧНО! ОТВЕТ Разъяснить ПОДРОБНЕЕ!

В таблице Dat хранятся положотельные либо отрицательные числа. Опеределите, что будет напечатано в итоге паботы последующей программки. Текст программки приведен на языке прогроммирования Паскаль.

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