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

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

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

6
3

А для 8:

4
2
1

var a: integer;
begin
  writeln('VVEDITE CHETNOE CHISLO');
  readln(a);
  if (a mod 2)= 0 then
    while ((a mod 2)=0) do
       begin
         a := (a div 2);
         writeln(a);
       end
  else
     writeln('oshibka');
  readln();
end.