LATIHAN E NO 2

uses wincrt;
var
  tipe,jenis:char;
begin
clrscr;
write('Tipe Rumah [A,B,C,D]=');readln(tipe);
write('Jenis Pembayaran [T/K]=');readln(jenis);
  case  upcase (tipe) of
  'A':begin
     case upcase (jenis)  of
     'T': writeln ('Harga Rumah = Rp. 50.000.000');
     'K': writeln ('Angsuran Perbulan = Rp. 500.000');
     end;
      end;
  'B':begin                 
     case upcase (jenis) of
     'T': writeln('Harga Rumah = Rp. 65.000.000');
     'K': writeln('Angsuran Perbulan = Rp. 650.000');
     end;
      end;
  'C':begin
     Case upcase (jenis) of
     'T': writeln('Harga Rumah = RP. 75.000.000');
     'K': writeln('Angsuran Perbulan = Rp. 750.000');
     end;
      end;
  'D':begin
     case upcase (jenis) of
     'T': writeln('Harga Rumah = RP. 85.000.000');
     'K': writeln('Angsuran Perbulan = Rp. 850.000');
     end;
      end;
end;
readln;
end.
     
Hasilnya akan nampak seperti ini