program pascal tiket bus

program tiket_bus;
uses wincrt;
    var
    jurusan,jenisbus: string;
    total,diskon,bayar: integer;
    harga:real;
    begin
    clrscr;
    writeln('             Pemesanan Tiket Bus YASSALAM ABADI             ');
    writeln('                PO YASSALAM ABADI                 ');
    writeln('      Jurusan JOGJA, WONOSARI dan JAKARTA        ');
    writeln('+-----+--------+-------------------------+----------------+');
    writeln('| Kode  Jurusan |           AC          |  Ekonomi  |');
    writeln('+-----+--------+------------------------------------------+');
    writeln('|[1] JOGJA         | Rp.60.000 (Disc. 10%) | Rp.40.000 |');
    writeln('|[2] WONOSARI      | Rp.75.000             | Rp.50.000 |');
    writeln('|[3] JAKARTA       | Rp.20.000 (Disc. 5%)  | Rp.15.000 |');
    writeln('+-----+--------+-------------------------+----------------+');
    writeln('');
    writeln('');
    writeln('Silahkan isi data dibawah ini :');
    begin
    write('- Kode Jurusan : ');readln(jurusan);
    write('- Jenis Bus    : ');readln(jenisbus);
    write('- Jumlah Tiket : ');readln(total);
    write('- Harga bayar  : ');
    if (jurusan='1') and (jenisbus='ac')then harga:=60000-(60000*0.1);
    if (jurusan='1') and (jenisbus='ekonomi')then harga:=40000;
    if (jurusan='2') and (jenisbus='ac')then harga:=75000;
    if (jurusan='2') and (jenisbus='ekonomi')then harga:=50000;
    if (jurusan='3') and (jenisbus='ac')then harga:=20000-(20000*0.05);
    if (jurusan='3') and (jenisbus='ekonomi')then harga:=15000;

    writeln('Rp.',total*harga:0:2);
    writeln('');
    writeln(' Terimaksih atas pemesanannya ');
    writeln(' Data Anda sedang kami proses ');
    writeln(' Kami siap melayani dengan sepenuh hati #ricky# ');
    readln;
    end;
    end.