Написать на асемблере в турбо паскале - Turbo Pascal

Формулировка задачи:

Помогите! Написать на

встроеном асемблере в турбо паскале!

a*x*y*z+b*x*y+c*y*z+d*x*z+a

Решение задачи: «Написать на асемблере в турбо паскале»

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

var
  a,b,c,d,e,x,y,z:integer;
begin
  a:=1;b:=2;c:=3;d:=4;x:=5;y:=6;z:=7;
  writeln('check=',a*x*y*z+b*x*y+c*y*z+d*x*z+a);
  asm
    mov ax,x
    xor dx,dx
    mul y
    push ax
    mul z
    mul a
    mov e,ax
    pop ax
    mul b
    add e,ax
    mov ax,z
    push ax
    mul c
    mul y
    add e,ax
    pop ax
    mul d
    mul x
    add e,ax
    mov ax,a
    add e,ax
  end;writeln('work =',e);
end.

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

Объявлены переменные a, b, c, d, e, x, y, z типа integer.
Переменным a, b, c, d, x, y, z присвоены значения 1, 2, 3, 4, 5, 6, 7 соответственно.
Выполняется вывод на экран значения выражения axyz+bxy+cyz+dx*z+a с помощью функции writeln.
Выполняется ассемблерный блок кода, который выполняет вычисления с помощью операций умножения и сложения переменных a, b, c, d, x, y, z.
Результат вычислений сохраняется в переменной e.
Выполняется вывод на экран значения переменной e с помощью функции writeln.