Операторы цикла (Pascal)

[DenisMPT]

С клавиатуры вводится число N (100 < N < 5000). Вывести первые три натуральных числа, квадраты которых больше N.

[denisbrain]

{С клавиатуры вводится число N (100 < N < 5000). Вывести первые три натуральных числа, квадраты которых больше N}
var
  x,n,l:integer;
  begin
   writeln('Введите N');
   Readln(n);
   l:=0;
   for x:=round(sqrt(x)-1) to n do begin
     if x*x>n then begin
        l:=l+1;
        Write(x:4);
        if l>3 then exit;
     end;
   end;
   
  end.

[DenisMPT]

А как поставить ограничения (100 < N < 5000)?

[Stilet]

repeat
    writeln('Введите N');
   Readln(n);
until (n>100)and(n<500;