Из последовательности десятичных четырехразрядных натуральных чисел удалили все простые числа. оставшуюся последовательность упорядочили по четности количества делителей. сначала идут числа с нечетным количеством делителей, затем – числа с четным количеством делителей. в последовательности на позиции № 2018 находится число … (нумерация последовательности начинается с 0. единицу и само число в количестве делителей не учитывать.)

1)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');     if a[i]< =20 then s: =s+a[i]; end;   writeln;   writeln(s); end.2)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');   // if (i mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди нечетных номеров элементов.     // if (a[i] mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди самих нечетных элементов.   end;     writeln;   writeln(s); end.

Var     d: integer;     repeat       readln(d);       case d of       1: writeln('понедельник');       2: writeln('вторник');       3: writeln('среда');       4: writeln('четверг');       5: writeln('пятница');       6: writeln('суббота');       7: writeln('воскресенье');       else writeln('конец работы! ')       end;   until (d< 1 or d> 7) end.