uses crt;
var n,t:integer;
begin
clrscr;
write('nhap so luong mon hang:'); readln(n);
writeln('tong gia tri la: ',n*10000);
readln;
end.
Uses crt ;
Var n, integer ;
Begin
clrrscr ;
Write ( ' nhap so luong mon hang:' ) ;
Readln (n);
Write ( ' tong gia tri la : ', n* 10000 );
readln ;
end .