Напишите программу которая принимает с клавиатуры положительное трехзначное число а затем вычисляет и выводит на экран его "степень четности". на PASKAL

Предыдущий
вопрос Следующий
вопрос

program ParityDegree;

var
number, count: integer;

begin
write('Enter a three-digit number: ');
readln(number);

count := 0;

if number mod 2 = 0 then
begin
count := count + 1;
number := number div 2;
while number mod 2 = 0 do
begin
count := count + 1;
number := number div 2;
end;
end;

writeln('Parity degree of the number: ', count);
end.