Розв’язок задачі з Абрамова №252б

Всі умови | Умова: Дано натуральне число n, символи s1, ..., sn. Підрахувати загальне число входжень символів +, -, * в послідовність s1, ..., sn. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №252)

program Pr252_2;
var
  s : String;
  i, z : integer;
begin
  write('Input string: ');
  readln(s);
  z := 0;
  for i := 1 to length(s) do
  begin
    if (s[i] = '-') or (s[i] = '+') or (s[i] = '*') then
      inc(z);
  end;
  writeln(z);
  readln;
end.