Сделать прогу на паскале
Если n четное, то делим на 2, если n нечетное, то 3n+1
Пример: 7->22->11->52->26и т д

Ответ:

var n : integer;

begin

 readln(n);

 if n mod 2 = 0 then writeln(n/2) else writeln(n*3+1);

end.

Объяснение:

пример не понятен, как у тебя получилось 11->52 ?