Проблема с циклом.

[WitalinkaCherry]

Столкнулась с такой проблемой, решение придумала, но вот выводить программа результат не хочет, в чем проблема? Программа в прикрепленных файлах, а точнее решение.


<C. Old hocus-pocus
Обмеження часу: 1 с
Обмеження пам'яті: 256 M
Петрик П’яточкин загадав число від 1 до 10^9, а Вам повідомив три остачі, які утворилися при діленні загаданого числа на числа 971, 997, 1033. Зробіть фокус – швидко відгадайте число. Напишіть програму, що за даними остачами, знаходить загадане число.
Вхідні дані

Єдиний рядок вхідного потоку містить три натуральних числа.
Вихідні дані

Єдиний рядок вихідного потоку має містити одне натуральне число.
Приклади
Вхідні дані Результат роботи
5 10 15

835049324>

[ViktorR]

А сколь быстр Ваш проц?
Возможная причина - очень "длинный" цикл ...
Ждать надо долго.
В условном операторе вставил break ...

if ((x = a) and (y=b) and (z = c)) then
   begin
      writeln(s);
      break;
   end;

У меня вывелся правильный результат, в соответствии с примером.
Для контроля программы начните цикл, например с 965. По нажатии F8 (или F7) введите: 970 970 970. Далее нажимайте F8 и следите за переменными.
Должен напечататься результат - 970.

Как-то так, ...
PS: Предполагаю, что можно решить и иначе ....

[min@y™]

У меня работает. Цикл проходит секунд за 6. Знаю, как можно ускорить.