program opakovani;
uses crt;
var
 a:real;
begin
 write ('Zadej cislo<10: ');
 readln (a);
 while a>10 do
  begin
   write ('Zadej cislo<10: ');
   readln (a);
  end;
 write ('OK - zadal jsi spravne!');
readln;
clrscr;
end.