Program Muatrung;
Uses crt;
Var n: byte; s:integer;
Begin
Clrscr;
Write('Nhap so luong trung: '); Readln(n);
If n>10 then
Begin
Write('Nhap sai! Yeu cau nhap lai: '); Readln(n);
End;
s:=2000*n;
Write('So tien phai tra: ',s);
Readln
End.
----------------------------------------------
Không hiểu chỗ nào hỏi mình :33