Задание 12 Урок 13.1

Задание 12 Урок 13.1

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

var i : integer;
label m1;
begin
  m1 :
  write('Введите четное целое число и нажмите ENTER:');
  readln(i);
  if ((i mod 2) = 1) then
    begin
      writeln('ОШИБКА!!! Вы вели нечётное число!!!');
      goto m1;
    end
  else
    while ((i mod 2) = 0) do
      begin
        i := (i div 2);
        writeln(i);
      end;
  write('Программа завершена! Нажмите ENTER!');
  readln();
end.