Ответ:

var  x, c, j :integer;

begin

 writeln('выведем все х, алгоритм для которых будет срабатывать');

 for j:=1 to 100 do begin (*цикл до 100, иначе не сработает while*)

   x:=j; c:=0;

   while x<100 do begin

     if c>3 then begin (* если зациклился алгоритм, то берём следующий X*)

       c:=-1;  break;

     end;

     inc(c);

     if x mod 2 < 1 then x:=x div 2

     else x:=3*x+1

   end;

   if c>0 then  (* выводим только не зацикленные значения*)

     writeln(j,' => ', x);

 end;  

end.