Напишите программу, которая вводит натуральные числа a и b и вводит все простые числа в диапазоне от a до b.

Спасибо :)

var    a, b, i, j, found: integer;begin    readln(a, b);        for i := a to b do    begin        found := 1;                for j := 2 to round(sqrt(i + 1)) do         begin            found := found * (i mod j);            if found = 0 then break;        end;                if found <> 0 then write(i, ' ');    end;end.