ПАСКАЛЬ! Цикл WHILE. Начальный уровень.

Найдите наибольшую степень 2, делящую данное число А.

Код программы:

program learning;

var a, c: Integer;

begin

c:= 0;

readln(a);

while(a mod 2 = 0)

do begin

a:= a mod 2;

c:= c+1;

end;

writeln(c);

end.