Проще всего найти это число методом перебора:

program GreatestN;
var
N: integer;
begin
N := 0;
while (73 + 812 - 104 < N) do
begin
N := N + 1;
end;
writeln('Наибольшее целое N, удовлетворяющее условию 73 + 812 - 104 < 0: ', N - 1);
end.

После запуска программы мы узнаем, что наибольшее целое N, удовлетворяющее условию 73 + 812 - 104 < 0, равно 18.