Código:
program reais_dolares; uses crt; var reais,dolares,converter:real; BEGIN reais:=0.23; dolares:=4.23; writeln('Digite o valor do dolar'); readln(dolares); writeln('Digite o valor do real'); readln(reais); converter:=(dolares/reais)/12; writeln('O valor do real é:',converter:0:0); readln; END.