Водном тесте пишет: "превышено максимальное время". : вывести все простые числа от m до n включительно. входные данные в первой строке находятся разделённые пробелом m и n. 2 < = m < = n < = 1 000 000. выходные данные вывести числа в порядке возрастания, по одному в строке. если между m и n включительно нет простых - вывести "absent". сам код: var i,a,b,c,n,d: longint; begin read(a, n); for i: =a to n do begin for b: =2 to trunc(sqrt(i)) do if i mod b=0 then c: =c+1; if c=0 then begin writeln(i); d: =d+1; end else c: =0; end; if d=0 then writeln('absent'); end.