Удалить из строки все знаки S стоящие как после .,так и

program raf105;

var

 st: string;

 a,b,s,i: integer;

begin

writeln('Введите строчку:');

readln(st);

for i:=1 to length(st) do

begin

 if (ilt;gt;1) and ( (st[i-1]='.') or (st[i-1]=';') ) and (st[i]='S')

   then s:= s+1;

 if st[i] = 'A'

   then a:= a+1;

 if st[i] = 'B'

   then b:= b+1;

end;

writeln('Количество символов "S" после "." либо ";": ',s);

writeln('Количество знаков "A": ',a);

writeln('Количество знаков "B": ',b);

end.

PascalABC 3.4.2