Viết chương trình pascal tính tiền hóa đơn mua một món hàng, biết rằng: Thành tiền= đơn giá số lượng + phí ship ( 10.000 đồng ) Lưu ý : đơn giá và số lượng được nhập từ bàn phím.

program  don_gia;
uses crt;
var dg, sl, t : longint;
const p = 10000;
begin
clrscr;
write('nhap don gia mon hang :');readln(dg);
write('nhap so luong hang can dat :');readln(sl);

t := dg*sl + p;
writeln('so tien ban can tra la :', t);
readln
end.

program kaito;

uses crt;

var dongia, soluong, thanhtien: real;

const ship=10000;

begin

   clrscr;

   write(‘Don gia: ‘); readln(dongia);

   write(‘So luong: ‘); readln(soluong);

      thanhtien:=dongia*soluong+ship;

   writeln(‘So tien can tra la: ‘,thanhtien);

   readln

end.

CHÚC BẠN HỌC TỐT