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

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

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

6
3

var i :integer;
begin
  write('vvedi chislo ');
  readln(i);
  if((i mod 2) = 0) then
    while((i mod 2) = 0) do
      begin
        i := i div 2;
        writeln(i , ' ');
      end
  else
    write('ERRRORRR');
readln();
end.