Realizar Un Programa en el Cual se Ingrese determinada Cantidad de Bolívares y me los Transforme a Euros, Dólares Estadounidenses y Real Brasileño

program plata;
uses wincrt;
var
dolar,euro,brazil,bolivar:real;
begin
writeln('Introduzca cantidad de bolivares a convertir');
readln(bolivar);
dolar:=bolivar/0.23256;
euro:=bolivar/0.17815;
brazil:=bolivar/0.488;
write('Los bolivares en dolares son  ',dolar:2:2);
write('  Los bolivares en euros son ',euro:2:2);
write('    Los bolivares en real brazileño son ',brazil:2:2);
end.