Một cửa hàng bán COD.Nếu đơn hàng có giá trị từ 600.000 trở nên sẽ được miễn phí ship.Nếu đơn hàng dưới 600.000 thì phí ship là 20.000đ.Viết chương trình tính tiền khách hàng phải thanh toán khi mua 1 loại mặt hàng

---------------------------

uses crt;

var hang,soluong,tongtien,ship: integer;

begin

clrscr;

write ('Nhap gia cua mat hang: ');  readln(hang);

write ('Nhap so luong: ');  readln(soluong);

if hang*soluong<600000 then ship:=20000

else ship:=0;

tongtien:=ship+(hang*soluong);

writeln ('Tong tien: ',tongtien);

readln;

end.

uses crt;

var a, b : real;

begin

clrscr;

write('Nhap so luong mat hang = '); readln(a);

write('Nhap gia tien 1 mat hang = '); readln(b);

if a * b >= 600 then

    write('Tien can thanh toan = ', a * b : 0 : 0)

else

    write('Tien can thanh toan = ', a * b + 2000 : 0 : 0);

readln

end.