Program tinh_tien;
Uses crt;
Var M, a, b, c, d, N, S: integer;
Begin
Write ('Nhap so luong sach ma khach mua:');
Readln (a);
Write ('Nhap gia cua 1 quyen sach:');
Readln (b);
Write ('Nhap so luong vo ma khach mua:');
Readln (c);
Write ('Nhap gia cua 1 quyen vo la:');
Readln (d);
M:= a*b;
N:= c*d;
S:= M+N;
Writeln ('So tien khach phai tra khi mua sach la:', M);
Writeln ('So tien khach phai tra khi mua vo la:', N);
Writeln ('Tong so tien khach phai tra khi mua sach va vo la:', S);
Readln
End.
#Phần mà mình in đậm là phần bổ xung cho yêu cầu sau nhá.
