Сделать так, чтобы в процедуре переменная а не меняла значение - PascalABC.NET

Формулировка задачи:

var
 a:Integer ;
function b (a:Integer ):Integer ;
begin
 b:= a mod 2
end;
procedure output;
begin 
  while a<>0 do
  begin
    Write(b(a));
    a:=a div 2
  end;
end;
procedure input;
begin
  write('a= ');
  ReadLn(a);
  output;
end;
begin
  input;
  readln;
end.

Решение задачи: «Сделать так, чтобы в процедуре переменная а не меняла значение»

Листинг программы

procedure output(a : integer); // значение глобальной переменной А не изменится
begin 
  while a<>0 do
  begin
    Write(b(a));
    a:=a div 2
  end;
end;

Объяснение кода листинга программы

Список элементов описания кода:

Процедура: output(a : integer)
Переменная: a (значение не изменится)
Цикл: while a<>0 do
Операция: a:=a div 2
Вывод: Write(b(a))
Значение: b(a)
Тип данных: integer
Использование: PascalABC.Net
Назначение: Отобразить значение переменной a в диапазоне от 0 до a/2 с шагом 1
Результат: Значение переменной a не изменится
Ограничения: Не указано максимальное значение переменной a
Необходимость: Показать, что значение переменной a не изменится при выполнении цикла
Дополнительно: Не указано, что происходит с переменной a вне процедуры
Нестандартное поведение: Если значение переменной a будет нечетным числом, то цикл будет выполняться бесконечно
Некорректное использование: Если значение переменной a будет отрицательным числом, то цикл будет выполняться некорректно
Недостаточность: Не указаны обработка ошибок и проверка границ значений переменной a
Непонятность: Не указаны комментарии или пояснения к коду
Неактуальность: Не указаны актуальные версии языков программирования и среды разработки
Неполнота: Не указаны все возможные варианты использования и преобразования переменной a
Неучтивость: Не указаны имена разработчиков и соисполнителей

Сделать так, чтобы в процедуре переменная *а* не меняла значение - PascalABC.NET

Формулировка задачи:

Решение задачи: «Сделать так, чтобы в процедуре переменная *а* не меняла значение»

Сделать так, чтобы в процедуре переменная а не меняла значение - PascalABC.NET

Решение задачи: «Сделать так, чтобы в процедуре переменная а не меняла значение»