Một siêu thịđiện máythực hiện đợt khuyến mãi như sau: Nếu mua hàngvới tổng sốtiền lớn hơn 550nghìn đồng, khách hàng sẽđược giảm 30% tổng sốtiền phải thanh toán.Ngược lại được giảm 25% sốtiền thanh toán. Viết chương trình tính tiền cho khách hàng mua hàngkhi biết đơn giá và sốlượng mặt hàng nhập vào từbàn phím.Tiền thanh toán = Đơn giá x Sốlượng.

uses crt;

var dg, sl, t : real;

begin

clrscr;

write('nhap so luong mat hang : ');readln(sl);

write('nhap don gia mat hang : ');readln(dg);

t := sl * dg;

if t >= 550000 then t := t * 0.7 else t := t * 0.75;

writeln('so tien khach hang can thanh toan : ', t:2:0);

readln

end.

Program baitap;

Uses crt;

Var s:integer;

      d,T:extended;

Begin

Clrscr;

Write('Nhap so luong:'); Readln(s);

Write('Nhap don gia:'); Readln(d);

T:=d*s;

If T>550000 then T:=T*0.7

                    Else T:=T*0.75;

Writeln('So tien can thanh toan:',T);

Readln

End.