{* Задача 223 *}

Unit ZADACH223;
Interface
Implementation
Begin
 writeln(' Дана целочисл табл а[1..m]. Среди элементов таблицы есть хотя бы один отрицательный. Найти сумму S элементов, расположенных после отрицательного элемента, затем найти сумму простых множителей числа S');
End.

Program z7;

Uses zadach223.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  fl  : longint;
  i   : longint;
  m   : longint;
  sum : longint;
  s   : longint;
  poz : longint;
  j   : longint;
  a   : Array [1..60] Of longint;
  b   : Array [1..60] Of longint;
Begin
  mm : clrscr; {* Стираем всё с экрана *}
  textcolor(11); {* Выбрать Светло-сине-зеленый цвет текста *}
  write('введите кол-во элементов таблицы: ');
  readln(m);
  For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
  Begin
    write('a[', i, ']=');
    readln(a[i]);
  End;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    If a[i] < 0 Then
      poz := i;
  If poz = 0 Then
  Begin
    write('Hе обнаружен отрицательный элемент!');
    readln; {* Приостановка программы. Ожидание Enter *}
    Goto mm;
  End;
  For i := poz + 1 To m Do
    sum := sum + a[i];
  b[1] := 2;
  m := 3;
  j := 1;
  fl := 0;
  met:
  While m  1 Do
    If sum Mod b[i] = 0 Then
    Begin
      s := s + b[i];
      sum := sum Div b[i];
    End;
    Else inc(i); {* Прибавим к i единицу *}
      write('ответ: ', s);
  readln; {* Приостановка программы. Ожидание Enter *}
End.