К числу А (тип Integer) введенному с клавиатуры прибавить число 100 - Turbo Pascal

К числу А (тип Integer) введенному с клавиатуры прибавить число 100.

var a:integer;
begin
write('Введите а (значения от -32768 до 32768):');
readln(a);
asm
mov ax,a
add ax,100
mov a,ax
end;
writeln('A=',a);
end.

Листинг программы

var a: Integer;
begin
  Write('A: '); ReadLn(a);
  asm
    mov ax,100
    add a,ax
  end;
  WriteLn('A= ',a);
end.

Объяснение кода листинга программы

Переменная a объявлена типа Integer.
Выводится сообщение A: для приглашения пользователя ввести число.
Считывается число с клавиатуры и значение переменной a присваивается этому числу.
В ассемблерной вставке asm происходит следующее:
- mov ax,100 перемещает в регистр ax значение 100.
- add a,ax складывает значение переменной a с значением регистра ax (100).
Выводится сообщение A= для отображения результата.
Программа завершается.