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

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6
3

var a : integer;
begin
        writeln ('введите четное целое число');
          readln (a);
          if ((a mod 2)=0) then
          while((a mod 2)<1) do
           begin
          a:=a div 2;
           writeln (a);
           end
           else writeln ('я же просил ввести четное число');
           
end.