viết chương trình pascal tính tiền hóa đơn mua 1 món hàng biết rằng: thành tiền = hóa đơn số lượng+ phí ship:10k

program hoa_don;
uses crt;
var a, b : integer;
const p = 10000;
begin
clrscr;
write('nhap hoa don :');readln(a);
write('nhap so luong hang :');readln(b);
writeln('so tien ban can tra la :', a*b + p);
readln
end.

Var thanhtien,dongia,soluong:integer;

Begin

const ship=10000;

begin

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

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

      thanhtien:=dongia*soluong+ship;

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

   readln

end.
xin câu tl hay nhất +vote 5* nha