Помогите с информатикой пожалуйста.

Дано натуральное число. Верно ли, что число принадлежит промежутку от А до В и кратно 3, 4 и 5. А и В задаются.

Нужно составить программу в , но не с условием (if...), а чтоб все решалось через циклы, где это возможно!
Может кто знает.

бред конечно, но вариантvar    a, b, x: integer;begin    readln(a, b, x);    while (x mod (3 * 4 * 5) = 0) and (x >= a) and (x <= b) do     begin        Writeln('да');        halt;    end;        Writeln('нет');end.