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

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

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

6
3

А для 8:

4
2
1

program task13;
var   a:integer;
begin
  writeln('vvedite chetnoe chislo');
  readln(a);
  if (a mod 2<>0) then
   writeln('owibka')
  else
  begin
    repeat
      if (a mod 2=0) then
      begin
        a:=a div 2;
        writeln(a);
      end
      else
        break
    until a<=1;
  end;
  readln();
end.