{* Задача 179 *}

Unit ZADACH179;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, символ s1...sn. Подсчитать общее число вхождений символов "+", "-", "*" в последовательность s1.....sn.');
End.

Program pas13686;

Uses zadach179.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  ip : integer;
  im : integer;
  n  : integer;
  s  : String;
Begin
  write('Enter size Of String: ');
  readln(n);
  setlength(s, n);
  For n := 1 To length(s) Do {* Переменная n увеличивается с 1 до length(s) *}
    readln(s[n]);
  im := 0;
  ip := 0;
  For n := 1 To length(s) Do {* Увеличиваем n от 1 до length(s) с шагом 1 *}
  Begin
    If s[n] = '+' Then
      inc(ip); {* Прибавим к ip единицу *}
    If s[n] = '-' Then
      inc(im); {* Увеличиваем im на 1 *}
  End;
  writeln('Size Of "+" And "-" In String: ', ip, ' ', im);
End.