Viết chương trình pascal tính tiền cho khách hàng mua sách biết đơn giá và số lượng mặt hàng nhập vào từ bàn phím. Một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền ít nhất 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán. Nếu mua sách với tổng số tiền không đến 100 nghìn đồng,khách sẽ được giảm 10% tổng số tiền phải thanh toán
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
