Получив на вход некоторое натуральное число X, этот алгоритм печатает одно число. Укажите второе (по возрастанию) число Х, для которого алгоритм хоть что-нибудь напечатает. Для решения задачи нужно написать программу, выполняющую перебор. Код ниже (только Pascal):
var x:integer;
begin
readln(x);
while x < 100 do begin
if x mod 2 < 1
x := x div 2
else
x := 3*x + 1
end;
writeln(x);
end.

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

а)1,3,6,4,11,5,16,6

б)9,7,10,8,11,9,12,10

в)3,2,1,6,5,4,9,8,7