program pemilihan;
uses crt;
var
   jmlbrg,hs :longint;
   ttl, bayar, disc : real;
Begin
     clrscr;
     write('input jumlah barang : ');
     readln(jmlbrg);
     write('input harga satuan : ');
     readln(hs);
     ttl := jmlbrg * hs;
     IF (ttl > 200000) then
        Begin
             disc := 0.1 * ttl;
             bayar := ttl - disc;
        end
     else
         Begin
              bayar := ttl;
         End;
     write('total pembayaran :' , bayar:2:2);
     readln;
End.