1. Chương trình cần khai báo:

- Khai báo hằng : phi

- Khai báo biến : soluong, dongia, thanhtien;

Khai báo :

var soluong : integer;

      dongia, thanhtien : real;

      const phi = 10000;

2. Câu lệnh yêu cầu nhập đơn giá :

Write('nhap don gia :');

Câu lệnh nhập đơn giá :

Readln(dongia);

3. Câu lệnh yêu cầu nhập số lượng :

Write('nhap so luong :');

Câu lệnh nhập số lương :

Readln(soluong);

4. Câu lệnh gán giá trị thành tiền 

thanhtien := dongia* soluong + phi;

5. Câu lệnh in giá trị thành tiền ra màn hình :

Writeln('gia tri thanh tien la :', thanhtien);

uses crt;

var a,b,S:integer;         (1)

const c=10000;

begin

write('nhap don gia:');readln(a);           (2)

write('nhap so luong hang:');readln(b);     (3)

S:=a*b+c;      (4)

writeln('Thong bao: so tien can thanh toan la:',S,'VND);      (5)

readln;

end