Решение задачи №12 из главы 13.1

Решение задачи №12 из главы 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3

А для 8:

4
2
1

var x: integer;
begin
  writeln('vvedite cislo');
  readln(x);
  if (x mod 2) = 0 then
    while ((x mod 2) < 1) do
      begin
        x := x div 2;
        writeln(x);
      end
  else
    writeln('oshibka');
  readln();
end.