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

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

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

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 =(

Первая идея, пришедшая в голову- ее любимая игрушка с моим запахом.