program if_bersarang;

uses crt;



var

merk             : string;

gb, banyak, harga: longint;



Begin

clrscr;



	write('Merk flashdisk = ');

        readln(merk);

        if (merk = 'HP') then

	begin

	write('Kapasitas = '); readln(gb);



         if (gb = 8) then

	 begin

         harga := 100000;

         writeln('Harga flashdisk = ', harga);

         write('Jumlah beli = '); readln(banyak);

	 harga := harga * banyak;

	 writeln('Total Harga = ', harga);

	 end

         else if (gb = 16) then

	 begin

         harga := 150000;

	 writeln('Harga flashdisk = ', harga);

	 write('Jumlah beli = '); readln(banyak);

	 harga := harga * banyak;

	 writeln('Total Harga = ', harga);

	 end

         else

         writeln('Tidak ada');

	 end



        else if (merk = 'kingstone') then

	begin

	write('Kapasitas = '); readln(gb);



         if (gb = 8) then

         begin

	 harga := 85000;

         writeln('Harga flashdisk = ', harga);

         write('Jumlah beli = '); readln(banyak);

         harga := harga * banyak;

         writeln('Total harga = ', harga);

	 end

	 else if (gb = 16) then

	 begin

         harga := 150000;

         writeln('Harga flashdisk = ', harga);

	 write('Jumlah beli = '); readln(banyak);

         harga := harga * banyak;

         writeln('Total harga = ', harga);

         end

         else

	 writeln('Tidak ada');

	 end

	else

       	writeln('Tidak ada');



readln;

end.