Дайте відповіді на запитання 1-10 інформатика​

Uses crt;
const n=10;
var a:array [1..n] of integer;
    i,p,o: integer;
begin
     p:=0;
     o:=0;
     for i:=1 to  n do
     begin
          a[i]:=random(27)-10;
          write(a[i],' ');
          if a[i]>0 then inc(p);
          if a[i]<0 then inc(o);
     end;
     writeln;
     writeln('положительных:',p); p:=0;
     writeln('отрицательных:',o); o:=0;
     for i:=1 to n do
     begin
          a[i]:=-a[i];
          write(a[i],' ');
          if a[i]>0 then inc(p);
          if a[i]<0 then inc(o);
     end; 
     writeln;
     writeln('положительных:',p);
     writeln('отрицательных:',o);
end.

Тоже делаю но знаю ответ только на 1,3,4 и 7 так себе
1)В 1666 г. в московской пищепитательнице при церкви Ковра (Павла) и Иоанна поселился воинственный барабашка – демон. Царь Алексей Михайлович велел священными молитвами изгнать злокозненного духа. Митрополит Илларион 
3) мыс "Бурь" или же по другому мыс " Доброй надежды" частые грозы, дожди и ураганы, а так же затуманенность приводили к гибели кораблей( уточняю, что таких как этот мыс есть еще несколько. Но не возможно понять какой именно, мне
кажется этот более подходящий) Явление миража происходили из-за тумана.
4) Меркурий. за 176 дней делает оборот вокруг солнца. То есть одни сутки этой планеты длятся два ее года.
7) известно что длинношерстные тойтерьеры  разводились в Москве, точнее их там вывели.