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

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

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

program lesson13_12;
var
    a : integer;
begin
    repeat
        writeln('enter even number');
        readln(a);
        if a = 0 then
            writeln(a)
        else if a mod 2 = 0 then
            repeat
                a := a div 2;
                writeln(a);
		    until odd(a)
		else
            writeln('error');
    until not odd(a);
	readln();
end.