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

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

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

var
  i : integer;
begin
  writeln ('Vvedite celoe chetnoe chislo: ');
  readln(i);
  if ((i mod 2) = 0) then
      while ((i mod 2) = 0)  do
         begin
           i:= i div 2;
           write (i);
           writeln();
         end
  else
     writeln ('Oschibka. Vvedite chetnoe chislo');
  readln();
end.