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

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

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

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