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

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

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

var i: integer;
begin
readln(i);
if (i mod 2=1) then writeln('ошибка')
else 
    repeat
        i:=i div 2;
        writeln(i);
    until(i mod 2=1);
end.