Что не правильно? Делфи. 150 р. заплачу за исправление.

Question

function Sin_rn ( x: single): single; 
asm 
 fild x 
 fpsin 
 
end; 
 
 function Tan_rn ( X: single): single; 
asm 
 FLD X 
 FPTAN 
 FSTP ST(0) 
 FWAIT 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 
 ShowMessage(FloatToStr(Sin_rn (1))); 
 
end;

Елена Текоева · Accepted Answer

program N89631102; 
 
uses 
 SysUtils, 
 Dialogs; 
 
function Sin_rn(x: single): single; 
asm 
 fld x 
 fsin 
end; 
 
function Tan_rn(x: single): single; 
asm 
 fld x 
 fptan 
 fmul 
end; 
 
begin 
 ShowMessage(FloatToStr(Sin_rn(1)) + #13#10 + FloatToStr(Tan_rn(1))); 
end. 
 
<img src="//otvet.imgsmail.ru/download/0a640c777e06edb0c56678375ae1adca_i-242.jpg" > 
 
P.S. За платёжными реквизитами обращайтесь в личку.