var S: Real; sigma1: Real = 2.0; procedure TForm1.FormCreate(Sender: TObject); begin S:=Exp((-0.5)*Ln(sigma1)) end;