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

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

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

1
2
6
3

А для 8:

1
2
3
4
2
1

var i : integer;
begin
writeln('Vvedite 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('error');
  readln();
end.