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

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

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

6
3

program zadacha11;
var i : integer;
begin
  writeln('Vvedite chislo');
  readln(i);
       if i mod 2 = 0 then
           repeat
             i:= i div 2;
             writeln(i, ' ');
           until i = 1
       else
         writeln('Chislo nechetnoe');
  readln();
end.