Program Menghitung Besar Pembayaran dari Banyak Pembelian

Program Menghitung Besar Pembayaran dari Banyak Pembelian di Turbo Pascal - Berikut adalah program menghitung besar pembayaran dengan data sebagai berikut :T-Shirt size S
Harga normal 1000
Jika Beli 2, jumlah bayar dikali 900
Beli >= 3, jumlah bayar dikali800

T-Shirt size MHarga normal 1250
Beli 2, jumlah bayar dikali 1100
Beli >= 3, jumlah bayar dikali 1000

T-Shirt size LHarga normal 1500
Beli