program tugas_program_variabel;
var
	nama_pasien: string;
	biaya_pendaftaran: integer;
	harga_obat: integer;
	jumlah_obat: integer;
	bayar_obat: integer;
	bayar_periksa: integer;
begin
	writeLn('Masukkan Nama Pasien: ');
	readLn(nama_pasien);
	writeLn('Masukkan Biaya Pendaftaran: ');
	readLn(biaya_pendaftaran);
	writeLn('Masukkan Harga Obat: ');
	readLn(harga_obat);
	writeLn('Masukkan Jumlah Obat: ');
	readLn(jumlah_obat);

	bayar_obat:= harga_obat*jumlah_obat;
	bayar_periksa:= biaya_pendaftaran+bayar_obat;

	writeLn('Nama Pasien: ', nama_pasien);
	writeLn('Bayar Obat: ', bayar_obat);
	writeLn('Bayar Periksa: ', bayar_periksa);

end.