[PASCAL] Conversor de moedas

program conversorDeDolarEEuro;

var
        numero:real;
        opcao:integer;
    total:real;
begin
        writeln('Conversor de real para Euro ou Dolar');
        writeln('Digite o número desejado para converter :');
    readln(numero);
    writeln('Agora digite (1) para converter para dolar, ou (2) para Euro');
        readln(opcao);
        if( opcao = 1 ) then
                begin
                        total := numero * 0.558659;
                        write(' ',numero,' reais convertido em Euro é ', total);
                end
        else
                begin
                        total := numero * 0.408197;
                        write(' ',numero,' reais convertido em Dólar e ', total);
                end;
        readln;
end.