Menghitung Nilai Tukar Rupiah Terhadap Dolar

Buatlah sebuah algoritma yang menerima masukan dari user suatu bilangan bulat rupiah. Kemudian tampilkan nilai dollar (AS) yang setara dengan nilai rupiah tersebut.

Contoh (dengan nilai kurs 1 dollar = Rp 14000) :
Masukkan nilai rupiah = 140000
Hasil:
Nilai dollar (AS) = 10

program Project1;

var
  rupiah : integer;
  dolar  : real;

begin
  write('Masukkan nilai rupiah = ');
  readln(rupiah);
  dolar := rupiah / 14000;
  writeln('Nilai Dollar (AS) = ',dolar:2:2);
  readln;
end.

Variasi jawaban yang lebih fleksibel dan ringkas dapat dilihat di bawah ini.

program Project2;

const
  ratedolar : real = 14000;

var
  rupiah : integer;

begin
  write('Masukkan nilai rupiah = ');
  readln(rupiah);
  writeln('Nilai Dollar (AS) = ',rupiah/ratedolar:2:2);
  readln;
end.