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

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

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

var a: integer;
begin
  write('vvedite chetnie chislo ');
  readln(a);
  if (a mod 2)=0 then
    repeat
      a:=a div 2;
      writeln(a,' ');
    until (a mod 2)=1
  else writeln('ERROR,chislo ne chetnoe');
  writeln('END');
  readln();
end.  
.

Вывод консоли:

vvedite chetnie chislo 12
6
3
END