Bolívares a USD, Euros y Real Brasileño

Program logicander;


Uses WinCrt;
Var
bs, euros, usd, rb : real;
Begin


WriteLn ( 'Ingrese la cantidad de bolivares que desea convertir' );
ReadLn (bs);


usd:= bs/0.23256;
euros:= bs/0.17815;
rb:= bs/0.488;


WriteLn ( 'El resultado de Bolivares a Dolares Estadounidenses es: ', usd:3:3);
WriteLn ( 'El resultado de Bolivares a Euros es: ', euros:3:3);
WriteLn ( 'El resultado de Bolivares a Real Brasileño es: ', rb:3:3);


end.