Вы способны полюбить кого-либо полностью и без остатка, одного и навсегда???

Странно, вам должны были это в школе давать.

А так как я сегодня в хорошем настроении. То вот тебе ответ, паскаль я не знаю, поэтому придётся причесать код. но суть понятна.

X = число которое ввел юзер.
Z = X mod 7 .
if(Z = 0) {
  то делиться. обозначай как душе угодно
}
тадааа.

скорее всего надо какойнить луп впихнуть, и в нём чекать. Например можно сделать Divisible = 1 если делиться (если иф пошёл) , и потом чекать значение Divisible и относительно оного выводить дело на экран.

я не знаю паскаль, но логика есть,

добавлю что mod это "деление с остатком". Даёт остаток. Капают на мозги им часто на всяких тестах.

да... причем каждый...

Если человек решил ,что это его судьба ,то наверное это навсегда .. Хотя такое редко бывает

Сжечь скорлупу грецких орехов. Полученную золу растереть в порошок и растворить в 1 ч. л. кипячёной воды. Полученной кашицей смазывать волосистые места 3 раза в день до их исчезновения.
Из зелёного грецкого ореха выдавить сок и смазывать им волосистую поверхность 2 - 3 раза в день. Или разрезать незрелый зелёный орех и втирать сок в кожу. Взять свежие семена крапивы и натирать ими места, где нежелателен рост волос.
Взять 40 г толчёных семян крапивы (можно сухих), залить их 100 г растительного масла и настоять в стеклянной посуде 2 недели, процедить и перелить в пузырёк с пробкой. Полученной смесью смазывать кожу.
Смешать 35 г спирта, 5 г нашатырного спирта, 1,5 г йода, 5 г касторового масла и смазывать обросшие места 2 раза в день.
Через несколько суток волосы безболезненно выпадут. Лечение начинайте всегда с малозаметных мест, а лишь в последнюю очередь применяйте на лице, руках и ногах.
---------------------------

навсегда нельзя. Просто вовремя оплачивайте домен, тогда от вас он никуда не уйдёт до тех пор, пока платите. Подробности тут:

Черный; а знаете или догадываетесь-почему?

Да. Есть несколько друзей-приятелей,которые на меня плохо повлияли.
Вот с этими.

Пришлось бы снова запускать mIRC и /server irc.lv:6667 =(

по голове настучать,зачем оскорблять...

Да я и так с ними не общаюсь А учитывая, что у меня их несчетно, охотно стала бы миллиордершей