Запишите алгоритм распорядка дистанционного обучения

Var
   A:array[1..10000,1..10000] of integer;
   i,j,N:integer;
   S,P:real;
Begin
Randomize;
P:=1;
Write('N = ');ReadLn(N);
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
j:=1;
Repeat
S:=0;
For i:= 1 to N do
    S:=S+A[i,j];
P:=P*S;
j:=j+2;
Until j>N;
WriteLn('P = ',P);
End.

N = 7
 -8   4   4   6  -6  -3   1
 -6  -6   8   7   8   8   2
  5  -2   5   7  -4   9  -1
  0  10   2  -5   9   9   3
  2   8   2 -10  -6  -4  -6
 -7   3  -4   9   2   4  -3
  6   4  -3   0   1   4  -5
P = 4032

1.Необходимо немедленно вызвать пожарную охрану по телефону "01", сообщив свой точный адрес, объект пожара и встретить пожарную охрану. Детям - если рядом есть взрослые, сразу позвать их на
2.Если горение только началось, вы его легко затушите водой, накроете толстым одеялом, покрывалом, забросаете песком, землей; 
3. Ни в коем случае не тушить водой горящие электропроводку и электроприборы, находящиеся под напряжением - это опасно для жизни; 
4. Если вы видите, что не сможете справиться с огнем, и пожар принимает угрожающие размеры покиньте помещение; 
5. Никогда не прячьтесь в задымленном помещении в укромные места. 
И помните, что пожар легче предупредить, чем погасить, и что маленькая спичка может обернуться большой бедой!