Задача 12 Урок 13.1

Вложенные циклы

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

var a: integer;
begin
  repeat
    writeln('write odd num');
    read(a);
    if (a<=0) then
      break;
    if (a mod 2 = 0) then
      repeat
        a:= a div 2;
        writeln(a);
      until (a mod 2 = 1)
    else
      writeln('error: num is not odd');
  until(a=0);
  readln;
end.