Câu hỏi: Cửa hàng sách Nam Phương thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu khách hàng mua sách với tổng số tiền ít nhất là 100 nghìn đồng sẽ được giảm 30% tổng số tiền phải thanh toán. Ngược lại, những khách hàng mua với tổng số tiền không đến 100 nghìn đồng thì chỉ giảm 10%. Em hãy viết chương trình để tính tiền cho cửa hàng sách trên.
P/S: Mọi người ai biết viết chương trình thì giúp mình với ạ! Cảm ơn mọi người trước.
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.