Напишите программу, которая выводит все простые числа в диапазоне от K до N ( 2 ≤ K ≤ N ≤ 100000 ). Pascal

var  k,n,x,d: integer; begin  read(k,n);  for x := k to n do   if x mod 10 = 3 then     begin     d := 2;     while x mod d <> 0 do d := d + 1;     if x = d then write(x,' ');     end; end.