program nhapso;

uses crt;

var x:real;

begin

     clrscr;

     repeat

          write(‘Nhap so: ‘);  readln(x);

          if (x<1) or (x>10) then writeln(‘So nay phai tu 1 den 10’);

     until (x>=1) and (x<=10);

     readln;

end.