Найти все простые числа в любом диапозоне используя 3 цикла в паскале.

{В три цикла не получилось, только два}

var
 x, d: integer;
 l, r: integer;
 
begin
 read(l, r);
 if l < 2 then l := 2;
 for x := l to r do
   begin
   d := 2;
   while (x mod d <> 0) and (d*d < x) do
     d := d + 1;
   if x mod d <> 0 then
     writeln(x)
   end;
end.