Помогите, пожалуйста, написать программу на делфи с ассемблерными вставками.

program N98423370;
{$APPTYPE CONSOLE}
var
    a, x, y, z: double;
begin
    write('Введите X: ');
    readln(x);
    write('Введите Y: ');
    readln(y);
    write('Введите Z: ');
    readln(z);
    asm
        fld1
        fld st(0)
        fadd
        fldl2e
        fmul
        fld st(0)
        frndint
        fsub st(1), st(0)
        fxch
        f2xm1
        fld1
        fadd
        fscale
        fadd
        fld x
        fmul x
        fld y
        fld z
        fptan
        fstp st(0)
        fsub
        fabs
        fmul
        fld1
        fadd
        fdiv
        fstp a
    end;
    writeln('Ответ: A = ', a:0:5);
    write(#10'Для завершения работы нажмите Еntеr...');
    readln
end.

Как малые дети, чесслово. Напиши код целиком на дельфи, в отладчике открой окно CPU и скопируй оттуда код.

На ассемблере программируют только за деньги.