[PashaXP]

А если програмно, то

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  f1,k1,a1,b1,c1,d1: real;
  str:string;
begin
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
  k1:=(a1+b1+c1+d1);
      f1:=(2* a1+3* b1+4* c1+5* d1)/k1;
      str:=FloatToStrF(f1,ffFixed,1,1);
     if Pos(',',str)<>0 then str[Pos(',',str)]:='.';
     label1.Caption:=str;

end;