MULAI

    DEKLARASIKAN jarak_peta, skala_peta, jarak_asli_km SEBAGAI FLOAT

    DEKLARASIKAN kecepatan_speedboat, harga_speedboat, kecepatan_ferry, harga_ferry SEBAGAI FLOAT

    DEKLARASIKAN waktu, biaya SEBAGAI FLOAT

    DEKLARASIKAN jenis_kendaraan SEBAGAI STRING

    SET skala_peta MENJADI 130000.0

    SET kecepatan_speedboat MENJADI 60.0

    SET harga_speedboat MENJADI 50000.0

    SET kecepatan_ferry MENJADI 35.0

    SET harga_ferry MENJADI 20000.0

    CETAK "Masukkan jarak peta antara Kota A dan Kota B (dalam cm): "

    INPUT jarak_peta

    CETAK "Masukkan jenis kendaraan (speedboat/ferry): "

    INPUT jenis_kendaraan

    SET jarak_asli_km MENJADI (jarak_peta * skala_peta) / 100000.0

    JIKA jenis_kendaraan = "speedboat" MAKA

        SET waktu MENJADI jarak_asli_km / kecepatan_speedboat

        SET biaya MENJADI jarak_asli_km * harga_speedboat

        CETAK "Menggunakan Speedboat"

    ELSE JIKA jenis_kendaraan = "ferry" MAKA

        SET waktu MENJADI jarak_asli_km / kecepatan_ferry

        SET biaya MENJADI jarak_asli_km * harga_ferry

        CETAK "Menggunakan Ferry"

    ELSE

        CETAK "Jenis kendaraan tidak valid"

        KELUAR

    ENDIF

    CETAK "Jarak asli antara Kota A dan Kota B adalah: " + jarak_asli_km + " km"

    CETAK "Waktu tempuh: " + waktu + " jam"

    CETAK "Biaya: " + biaya + " IDR"

SELESAI