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