Program hoc24;
uses crt;
var sl,g,thue:int64;
gtgt:real;
Begin
clrscr;
write('Nhap so luong mat hang:'); readln(sl);
write('Nhap don gia mat hang:'); readln(g);
thue:=sl*g;
gtgt:=thue/10;
writeln('Tien thue:',thue);
writeln('Gia tri gia tang cua mat hang:',gtgt:0:1);
readln;
End.