i := 1;
flag := false;
while (i <= N) and (flag = false) do
begin
    sum := 0;
    mul := 1;
    for j := 1 to M do
    begin
        sum := sum + X[i, j];
        mul := mul * X[i, j];
    end;

    if (sum <= mul) then
        flag := true;

    i := i + 1;
end;

if (flag = true) then
    WriteLn('номер строки', i - 1)
else
    WriteLn('все суммы больше');