LATIHAN E NO 3

uses wincrt;
var
  tipe,jenis:char;
begin
clrscr;
write('Tipe Rumah [A,B,C,D]=');readln(tipe);
write('Jenis Pembayaran [T/K]=');readln(jenis);
if tipe='A' then
 begin
 if jenis='T' then
  begin
  writeln('Harga Rumah = Rp. 50.000.000');
  end
 else
  writeln('Angsuran Perbulan = Rp. 500.000');
 end
else if tipe='B' then
 begin
 if jenis='T' then
  begin
  writeln('Harga Rumah = Rp. 65.000.000');
  end
 else
  writeln('Angsuran Perbulan = Rp. 650.000');
 end
else if tipe='C' then
 begin
 if jenis='T' then
  begin
  writeln('Harga Rumah = Rp. 75.000.000');
  end
 else
 writeln('Angsuran Perbulan = Rp. 750.000');
 end
else if tipe='D' then
 begin
 if jenis='T' then
 begin
 writeln('Harga Rumah = Rp. 85.000.000');
 end
 else
 writeln('Angsuran Perbulan = Rp. 850.000');
 end;
end.