Найти сумму целых чисел из промежутка [n1; n2], у которых ровно 5 делителей

var
  n1, n2, k, a, b, q, p, m, d, z: integer;
  {n1, n2 - интервал чисел, k - количество чисел,
  a, b - интервал чисел, квадраты которых принадлежат интервалу [n1; n2],
  q, p - счётчики циклов, m - модуль числа, d - количество делителей, z - знак числа}
  s, t: real;
  {s - сумма чисел, t - временная переменная}
begin
  //ввод интервала
  write('n1 = ');
  readln(n1);
  write('n2 = ');
  readln(n2);
  //нахождение минимального значения счётчика (наименьшее большее)
  t := sqrt(abs(n1));
  if n1 < 0 then a := -trunc(t)
  else if frac(t) <> 0 then a := trunc(t) + 1;
  //нахождение максимального значения счётчика (наибольшее меньшее)
  t := sqrt(abs(n2));
  if n2 > 0 then b := trunc(t)
  else if frac(t) <> 0 then b := -trunc(t) - 1;
  //далее ищем числа
  writeln('Числа, имеющие ровно 5 делителей:');
  k := 0; //числа пока не найдены
  s := 0; //сумма чисел пока 0
  for q := a to b do //*** цикл по корням из модулей чисел, умноженных на знаки чисел
    begin
      if q < 0 then z := -1 else z := 1; //знак числа
      m := q * q; //модуль числа
      d := 0; //делители пока не найдены
      for p := 2 to abs(q) - 1 do if m mod p = 0 then inc(d); //цикл подсчёта количества делителей
      if d = 1 then //если число имеет ровно 5 делителей, то
        begin
          inc(k); //увеличиваем счётчик чисел
          m := z * m; //восстанавливаем значение числа
          writeln(m); //печатаем число
          s := s + m //добавляем число к сумме
        end
    end; //*** конец цикла по корням из модулей чисел, умноженных на знаки чисел
  //далее, если числа найдены, то печатаем сумму, иначе печатаем, что числа не найдены
  if k > 0 then writeln('Сумма чисел = ', s:0:0) //если числа найдены, то печатаем сумму
  else writeln('не найдены') //иначе печатаем, что числа не найдены
end.

var n1, n2, p1, p2, i, p, k: integer;
    s, t: real;
begin
 write('n1 = ');
 readln(n1);
 write('n2 = ');
 readln(n2);
 p1:= round(sqrt(sqrt(n1))); 
 p2:= round(sqrt(sqrt(n2)))+1; 
 s:= 0;
 for p:= p1 to p2 do 
  begin  
   k:=0; 
   for i:=2 to round(sqrt(p)) do 
    if p mod i = 0 then k:=k+1; 
   if (k=0) and (p*p*p*p>=n1) and (p*p*p*p<=n2) 
    then
     begin
      t:= p*p*p*p;
      writeln(t);
      s:= s + t; 
     end;
  end;
 if s > 0 
  then writeln('Сумма чисел = ', s:0:0) //если числа найдены, то печатаем сумму
  else writeln('не найдены')
end.

var i,j,k,s:integer; 
begin 
writeln('Числа из интервала, имеющие ровно 5 делителей:'); 
s:=0; 
for i:=2 to 200 do 
 begin 
 k:=2;{все больше 1 имеют минимум 2 делителя} 
 for j:=2 to i div 2 do{находим остальные} 
 if i mod j=0 then k:=k+1; 
 if k=5 then 
 begin 
 s:=s+i; 
 writeln(i); 
 end; 
 end; 
writeln('Их сумма=',s); 
end.

var
  n1, n2, k, a, b, q, p, m, d: integer;
  s, t: real;
begin
  write('n1 = ');
  readln(n1);
  write('n2 = ');
  readln(n2);
  t := sqrt(sqrt(abs(n1)));
  if n1 < 0 then a := -trunc(t)
  else if frac(t) <> 0 then a := trunc(t) + 1;
  t := sqrt(sqrt(abs(n2)));
  if n2 > 0 then b := trunc(t)
  else if frac(t) <> 0 then b := -trunc(t) - 1;
  writeln('Числа, имеющие ровно 5 делителей:');
  k := 0;
  s := 0;
  for q := a to b do
    if abs(q) > 1 then
      begin
        d := 0;
        for p := 2 to trunc(sqrt(abs(q))) do if q mod p = 0 then inc(d);
        if d = 0 then
          begin
            inc(k);
            m := q * q * q * abs(q);
            writeln(m);
            s := s + m
          end
      end;
  if k > 0 then writeln('Сумма чисел = ', s:0:0)
  else writeln('не найдены')
end.