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

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

var a:integer;

begin
  writeln('Vvedite chetnoe celoe chislo: ');
  readln(a);
  if(a mod 2 = 1) then writeln('Chislo ne chetnoe. Oshibka!')
  else
    repeat
      a:=a div 2;
      writeln(a);
    until (a mod 2 = 1);
end. 

Консоль:

Vvedite chetnoe celoe chislo: 
8

4
2
1