[Aleca]

otra opcion

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vprestamo,ano1: Currency;
const
  int1=0.22;
  int2=0.18;
begin
  vprestamo:=strtoint(edit1.Text);
  if vprestamo <= 50000 then
  begin
    ano1:=vprestamo * int1;
    edit2.Text:=Floattostr(ano1);
  end
  else
  begin
    ano1:=vprestamo * int2;
    edit2.text:=Floattostr(ano1);
  end;
end;