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

урок 13.1

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

var i:integer;
begin
 writeln('ведите целое чёное число');
 readln(i);
 if ((i mod 2 )=1) then
   writeln('ошибка!');
 while (i  mod 2 <1) do
   begin
    i:=i div 2;
    writeln(i);
   end;
 readln();
end.