var n:byte;
begin
readln(n);
write(n*2000);
end.
thêm bớt gì tùy bạn
quá dễ
uses crt;
var n,t:integer;
begin
clrscr;
repeat
write('nhap so luong qua trung:'); readln(n);
if (n<=0) or (n>9) then writeln('ban da nhap sai , yeu cau ban nhap lai');
until n<9;
t:=n*2000;
writeln('tong so tien phai tra la: ',t);
readln;
end.