procedure TForm1.Button1Click(Sender: TObject);
Var
HorasTrabajadas:Integer;
PagoPorHora,SalarioBruto,Descuento,SalarioNeto:double;
begin
HorasTrabajadas:=StrtoInt(edit1.text);
PagoPorHora:=StrToFloat(edit2.text);
SalarioBruto:=StrToFloat(edit3.text);
Descuento:= 0.2 * SalarioBruto;
SalarioNeto:= SalarioBruto - Descuento;
Edit4.Text:=FloatToStr(SalarioBruto);
Edit5.Text:=FloatToStr(Descuento);
Edit6.Text:=FloatToStr(SalarioNeto);
end;