Написать программу проверяющую гипотезу Сиракуза для всех чисел от N до M. Значения N и M вводятся пользователем с клавиатуры. Результатом работы программы является последовательность чисел заканчивающихся ( по гипотезе Сиракуза) единицей.

var    a, b, n, i: integer;begin    readln(a, b);    for i := a to b do     begin        n := i;        write(n);        while n <> 1 do         begin            if (n mod 2) = 0 then                n := n div 2            else                n := (3 * n + 1) div 2;            write(' -> ', n);        end;        writeln;            end;end.чесно передрано с некого сайта и доработано под задачу