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

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

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

6
3

А для 8:

4
2
1

program U13_1Z12;
var a: integer;
begin
  writeln('vvedite chetnoe chislo');
  readln(a);
  while ((a mod 2)=0) do
    begin
      while ((a mod 2)=0) do
        begin
          writeln(a div 2);
          a:=a div 2;
        end;
      writeln('vvedite chetnoe chislo');
      readln(a);
    end;
  writeln('osibka');
  readln();
end.