CONTOH program mengetahui informasi harga

Buatlah program untuk mrngetahui informasi harga dan besar angsuran. jika dikredit selama 10 tahun ,adapun daftarnya sebagai berikut :

berikut lisensinya......

program informasi_harga;
uses crt;
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');
writenl('harga',[t/k]);
readln;
end;
end;

end.

By. Muh Rasyid