Ассемблер Tasm

[Asya555]

помогите пож написать вот эту програмку на ассемблере


program Lab;
uses crt;
var i,n,z: integer;
begin
clrscr;
writeln ('vvedite n');
readln (n);
if n>=1 then
begin
z:=1;
for i:=1 to n do
z:=z*i;
writeln ('otvet:', z);
end;
begin
readkey;
end;
end.