Найдите значение b после выполнения алгоритма - PascalABC.NET

написать программу

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

var a,b:integer;
begin
a:=256;
b:=0;
while a>1 do
 begin
  a:=a div 2;
  b:=b+a;
end;
write('b=',b)
end.

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

Объявлены две переменные a и b типа integer (целое число).
Переменная a инициализируется значением 256.
Переменная b инициализируется значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной a больше 1.
Внутри цикла значение переменной a делится на 2 и присваивается обратно переменной a.
К значению переменной b прибавляется значение переменной a.
После выхода из цикла, значение переменной b выводится на экран с помощью функции write, при этом значение переменной b выделяется в кавычках.