Срочно!!! Помогите написать программу в паскале

program CalculateA;

function a(n: Integer): Integer;
begin
if n = 1 then
a := 1
else
a := a(n div 2) + 1;
end;

var
n: Integer;
begin
Write('Введите натуральное число n >= 1: ');
ReadLn(n);
WriteLn('Число a для n = ', n, ' равно ', a(n));
end.