Решение задачи 12 из главы 13.1

Решение задачи 12 из главы 13.1

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

program Project12;
var a: integer;
begin
  writeln('Vvedite zeloe chetnoe chislo:');
  readln(a);
  if ((a mod 2) = 0) then
     repeat
     begin
       a:= a div 2;
       writeln(a);
     end;
     until ((a mod 2) =1) AND (a > 0)
  else
      write('Vy vveli nechetnoe chislo!');
  readln();
end.