ai bày mình cách tính tiền thanh toán khi mua 2 mặt hàng trong pascal với ạ 1.máy bơm nước: đơn giá :650000đ phí:100000đ 2.quạt điện: đơn giá:120000đ

program tinh_tien;

uses crt;

var d,m,s,t:integer;

begin

clrscr;

write(‘Nhap don gia la d’);readln(d);

write(‘Nhap so luong la m’);readln(m);

s:=d*m;

t:=s*10%;

s:=s+t;

writeln(‘So tien phai tra:’,s);

readln ;

end .

@chúcbạnhọctốt@