Сдвигаем число А вправо на 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