program tugas_program_konstanta_dan_variabel;

const
	biaya_bangsal = 500000;
	biaya_daftar = 20000;

var
	nama_pasien: string;
	lama_dirawat: integer;
	biaya_rawat: integer;
	bayar_inap: integer;

begin
	writeLn('Masukkan Nama Pasien : ');
	readLn(nama_pasien);
	writeLn('Lama Dirawat (hari) : ');
	readLn(lama_dirawat);

	biaya_rawat:= biaya_bangsal*lama_dirawat;
	bayar_inap:= biaya_daftar+biaya_rawat;

	writeLn('Nama Pasien : ', nama_pasien);
	writeLn('Bayar Inap : ', bayar_inap);

end.