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

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

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

6
3

А для 8:

4
2
1

var i: integer;
begin
   writeln('Введите четное целое число:');
   readln(i);
   if (i mod 2 = 0) and (i <> 0) then
    begin
     while i mod 2 = 0 do
      begin
       i := i div 2;
       writeln(i);
      end;
    end
   else writeln('Ошибка');
   readln();
end.