Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [1820348; 1880927], числа, имеющие ровно 5 различных делителей. выведите эти делители для каждого найденного числа в порядке возрастания.

  развиваться  и  предлагать  пользователям  пк  всё  более  удобные  средства,  допустим,  вместо  мыши  можно  будет    рукой  или  устройством  похожим  на  ручку  (  сейчас  такое  уже  есть)  .возможно  появиятся  новые  ос  которые  будут  конкурировать  с  виндоус  своими  новыми  удобствами.  или  мы  будем  видеть  изображения  в  пространстве,  а  не  в  плоскости,  как  сейчас

1. vari: integer; a: array [1..15] of real; rez: real; begin for i: =1 to 15 do begin readln(a[i]); end;   rez: =a[1]+a[3]+a[5]; writeln(rez); end. 2. const z = 10; // размер массива  var    a: array [1..z] of integer;   i,rez: integer;   begin rez: =1; for i: =1 to z do begin a[i] : = random(100); end; writeln('элементы массива: '); for i: =1 to z do begin    write(a[i],' ');     if (a[i] mod 7 = 0) then    rez: =rez*a[i]; end; writeln(' '); if (rez < > 1)   then writeln(rez) else writeln('нет элементов, кратных 7'); end.