Напишите программу, которая выводит все простые числа в диапазоне от 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.