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

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

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

var i: integer;
begin
  write('vvedite 4etnoye 4islo - ');
  readln(i);
  if ((i mod 2)=0) then
     while ((i mod 2)<1) do
     begin
       i := i div 2;
       writeln(i);
     end
  else
     writeln('oshibla!');
 readln();
end.