Задача не проходит тест

Здравствуйте!

Нашел задачу и попробовал решить и вроде бы работает, и тесты все проходит, но один тест не дает покоя выводит на единицу больше.

Условие задачи:

Шехерезада рассказывает свои сказки великому правителю. Всего она должна рассказать N сказок

(N>7). Сколько ночей потребуется Шехерезаде, чтобы рассказать все свои сказки, если X ночей она

будет рассказывать по 3 сказки, а Y ночей - по 5 сказок за ночь.

Исходные данные

: с клавиатуры вводится целое число N

Выходные данные

: на экран выводится целое число S – наибольшая сумма дней, которые Шехерезада

может потратить на все сказки

Вот то что имею на текущий момент:

PascalВыделить код

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

program shahirize;
uses crt;
var Nx, Ny, N, x, y, res: integer;
begin
   ClrScr;
   readln(N);
   if (N<7) or (N>1001) then exit;
   Nx:= N div 3;
   Ny:= N div 5;
   for x:=0 to Nx do begin
      for y:=0 to Ny-x do begin
         if (x3+y5=N) then break;
      end;
   end;
   res:= x+y;
   writeln(res);
   while not keypressed do;
end.

Да и такой вопрос, может быть и дурацкий, но можно ли обойтись в этой задаче без while?

Тесты прилагаю в виде скриншота, все тесты, кроме 3-го проходят. Почему?

Заранее благодарен!