Пример кода на Паскале:

program LargestPowerOfTwo;
var
A, powerOfTwo: integer;
begin
writeln('Введите число А: ');
readln(A);
powerOfTwo := 1;
while A mod powerOfTwo = 0 do
begin
powerOfTwo := powerOfTwo * 2;
end;
powerOfTwo := powerOfTwo div 2;
writeln('Наибольшая степень двойки, на которую делится число А, равна: ', powerOfTwo);
end.

Этот код находит наибольшую степень двойки, на которую делится число A, с помощью цикла WHILE. В цикле мы умножаем переменную powerOfTwo на 2 до тех пор, пока A делится на powerOfTwo. После цикла уменьшаем значение powerOfTwo вдвое и выводим результат.