bài thì đơn giản nhưng đề muốn thử thách đầu chúng ta :))

uses crt;

var ttt,dg,sl,pdv: integer;

begin

clrscr;

write ('nhap don gia: ');  readln (dg);

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

write ('nhap phi dich vu: ');  readln (pdv);

ttt:=dg*sl+pdv;

writeln ('tien can thanh toan la: ',ttt);

readln;

end.

1)     program tinh;

2)     uses crt;

3)     var dg, sl, ph, t : integer;

4)     begin

5)     clrscr;

6)     write('nhap so luong mat hang can mua :');readln(sl);

7)     write('nhap don gia cua mat hang :');readln(dg);

8)     write('nhap phi dich vu :');readln(ph);

9)     t := dg * sl + ph;

10)   writeln('so tien khach hang can thanh toan la :', t);

11)   readln

12)   end.

Dòng 1 khai báo tên chương trình

Dòng 2 khai báo thư viện

Dòng 3 khai báo biến để lưu giá trị

Dòng 4 bắt đầu thân chương trình

Dòng 5 lệnh xóa sạch màn hình khi khai báo thư viện crt;

Dòng 6 thông báo số lượng cần mua ra màn hình, khi nhập dữ liệu nó sẽ được gán cho biến sl

Dòng 7 thông báo ra màn hình đơn giá ra màn hình, khi nhập dữ liệu sẽ được gán cho biến dg

Dòng 8 thông báo nhập phí dịch vụ, sau khi nhập dữ liệu sẽ được gán cho biến ph

Dòng 9 gán giá tiền theo công thức đề cho

Dòng 10 in ra số tiền khách hàng cần trả

Dòng 11 dừng màn hình cho chúng ta đọc kết quả

Dòng 12 kết thúc chương trình