procedure TForm1.Button1Click(Sender: TObject);
var x,y,v,z,a,b,c,t:extended;
begin
Memo1.Lines.Add('X  = '+Edit1.Text);
Memo1.Lines.Add('Y  = '+Edit2.Text);
Memo1.Lines.Add('Z  = '+Edit3.Text);

V:=3.14;
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
a:=2*cos(x-V/6);
b:=(0.5+sqr(sin(y)));
c:=(1+(sqr(z)/(3-sqr(z)/5)));
t:=(a/b)*c;
Memo1.Lines.Add('Результат T:='+FloatToStrF(t,fffixed,8,3));
end;