Programa de viagem

Program Viagem;

var

a,f,b,c,r,m,l,d,g: real;

Begin

f:= (2);

a:=(1.8);

b:=(1.57);

writeln('==CONVERSÃO DE MOEDA==');

writeln('');

writeln('');

writeln(' 1 - CONVERSSÃO PARA MARCO ALEMÃO');

writeln('');

writeln('');

writeln(' 2 - CONVERSÃO PARA DÓLAR');

writeln('');

writeln('');

writeln(' 3 - CONVERSÃO PARA LIBRA ESTERLINA');

writeln('');

writeln('');

write('Digite a quantia em R$ para conversão: ');

read(r);

writeln('');

writeln('');

write('Digite a opção de conversão: ');

read(g);

f:=(r/m);

a:=(r/d);

b:=(r/l);

writeln('');

writeln('');

if g = 1 then

write('O valor em marco alemão é: ',a:0:2,' Marcos');

if g = 2 then

write('O valor em dólar é: ',b:0:2, ' Dólares');

if g = 3 then

write('O valor em Libras é: ',c:0:2, ' Libras');

End.