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

http://fkn.ktu10.com/?q=node/8697

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

program task12_lesson13_1;
var a : integer;
begin
  writeln('Enter even Number :');
  readln(a);
  if ((a mod 2) = 1) then
     writeln('ERROR')
  else
    while ((a mod 2) = 0) do
          begin
            writeln(a div 2);
            a := (a div 2);
          end;
  readln();
end.