Z4-NO2

var m, n: longint;
var sum: real;
begin
    m := 1;
    while (n >= 0) do begin  // Это в теории должно работать до того момента,
    // который бы переполнил longint, но это займет слишком много времени.
    // Я протестировал не с longint, а с integer, и вышло m=11
        m := m + 1;  // Перебор всех m
        sum := 0;
        n := 0;

        while (sum < m) do begin  // Пока общая сумма меньше данного числа..
            n := n + 1;
            sum := sum + 1/n;
            if (n < 0) then break;
        end;
    end;
    writeln(m);
end.