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

Var dongia,soluong,thanhtien:integer;

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.

program hoa_don;

Uses crt;

const ship=10000;

Var

         sl,phi:longint;

Begin

       Clrscr;

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

       write('Nhap phi: '); readln(phi);

       write('Tien hoa don la: ',sl*phi+ship);

       Readln;

End.