Kurs Mata Uang

program matauang;
uses crt;
var rp,kurs:integer;
    dlr,sisa:real;
begin
        {Masukkan nilai rupiah}
        write('Nilai rupiah :Rp.  ');readln(rp);
        {Masukkan kurs}
        write('$1 = Rp.  ');readln(kurs);
        writeln;

        {dollar = rupiah dibagi kurs}
        dlr:=rp/kurs;
        {Sisa akan terjadi jika sisa rupiah dibagi kurs != 0}
        {Fungsi mod digunakan untuk mengetahui sisa pembagian}
        sisa:=rp mod kurs;

        {Keluarkan nilai dollar tanpa koma}
        writeln('Dollar = $ ',dlr:2:0);
        {Keluarkan nilai sisa tanpa koma}
        writeln('Sisa = Rp. ',sisa:2:0);
        {Keluar}
        write('Tekan Enter untuk Keluar...');readln;
end.