Soal Pascal

2 :Percabangan / IF If adalah suatu perintah yang digunakan untuk melakukan pemilihan suatu jawaban berdasarkan suatu pengujian. pengujian ini berbentuk comparation/perbandingan yang akan menghasilkan jawaban berbentuk LOGIKA yaitu YES / NO ataupun true / False. program tamu_losmen; uses crt; var nama,tanggal,jenis,kelas : string[20]; kode:string[1]; kdkls,lama : integer; biaya,bayar: longint; begin clrscr; writeln('daftar tamu losmen'); writeln('ADEM AYEM'); writeln('Jl. patimura No. 7223 Wiradesa'); writeln('=============================='); writeln(' '); write('tanggal :'); readln(tanggal); write('nama tamu :'); readln(nama); write('kode kamar :'); readln(kode); IF (kode='s') or (kode='S') then jenis:='Single' else jenis:='Double'; writeln('jenis kamar :',jenis); write('Kode Kelas :'); readln(kdkls); IF KDKLS=1 then begin kelas:='Top room';biaya:=50000; end else IF kdkls=2 then begin kelas:='President';biaya:=65000; end else IF kdkls=3 then begin kelas:='Suite';biaya:=50000; end else begin kelas:='data salah';biaya:=0; end; writeln('Kelas kamar :',kelas); writeln('biaya permalam : Rp.',biaya); write('lama inap : ');readln(lama); bayar:=biaya*lama; writeln('jumlah bayar : Rp.',bayar); readln(); end.