một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung như sau : nếu mua sách với tổng số tiền lớn nhất 100.000 đồ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.000 đồng.Khách hàng sẽ được giảm 10% số tiền đồng.khách hàng sẽ được giảm 10% tổng số tiền phải thanh toán.Hãy mô tả hoạt động tính tiền cho khách.
program az;
uses Crt;
var n : real;
begin
clrscr;
Write('Nhap so tien thanh toan luc dau : '); readln(n);
If (n >= 100000) then n := (70*n)/100 else n := (90*n)/100;
Write('So tien can thanh toan la : ',n);
readln
end
Mình học từ hồi lớp 8 r