Формат входных данных: дано целое число a и натуральное число i. формат выходных данных: обнулите у числа a его последние i бит и выведите результат обнуления. скорей, кто понимает, о чём идет речь!

Сдвигаем число А вправо на i бит, а потом сдвигаем результат влево на i бит. Освободившиеся правые разряды автоматически заполняются нулями.

var
  a, i, j: integer;

begin
  Write('Введите через пробел целое А и натуральное i: ');
  Readln(a, i);
  a := (a shr i) shl i;
  Writeln('a=', a)
end.

Тестовое решение:

Введите через пробел целое А и натуральное i: 124 5
a=96