program hadiah

program hadiah;
uses crt;
var pembelanjaan:real;
var barang : integer;
begin
     clrscr;
     write('masukan jumlah pembelanjaan:');
     read(pembelanjaan);
     write('masukkan jumlah barang:');
     read(barang);
      if(pembelanjaan>=200000) and (barang=10) then
      begin
        write('selamat anda mendapatkan hadiah kompor gas');
      end
      else
      if (pembelanjaan>150000) and (pembelanjaan<200000) and (barang=8) then
      begin
        write('selamat mendapatkan hadiah kipas angin');
      end
      else
      if (pembelanjaan>100000) and (pembelanjaan<150000) and (barang=6) then
        write('selamat anda mendapatkan hadiah payung');
        readln;
        readln;
end.