Петя и Вася придумали секретный алгоритм, с которого можно шифровать числа. Результат
(R) шифрования числа N строится следующим образом:
Шаг 1. Начальное значение результата R установить равным остатку от деления числа N на 6.
Шаг 2. Заменить число N на результат деления числа N на 6 нацело без остатка.
Шаг 3. Если на шаге 2 получился 0, закончить работу алгоритма.
Шаг 4. Если в записи результата R чётное число знаков, приписать к результату слева остаток от
деления числа N на 6, иначе приписать к результату справа остаток от деления числа N на 6.
Шаг 5. Перейти к шагу 2.
Например, число 20 кодируется как 23.
Вася получил от Пети зашифрованное число 432.
Какое число N зашифровал Петя?

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.