viết chương trình tính số tiền phải trả, biết rằng nếu mua hàng với hóa đơn từ 400k trở lên thì được giảm 10% so với tổng số tiền phải trả, nếu mua hàng với hóa đơn dưới 400k thù được giảm 5% so với số tiền phải trả
uses crt;
var tien,tong:real;
begin
clrscr;
write(‘Nhap so tien phai tra: ‘);readln(tien);
if tien<400 then tong:=tien/100*95 else
begin
tong:=400/100*95;
tien:=tien-400;
tong:=tong+tien/100*90;
end;
writeln(‘So tien can phai tra la: ‘,tong:1:0);
readln
end.