Дан текст. подсчитать,сколько раз в тексте встречается симьол "+" и сколько раз-симбол "*". удалить эти символы, сдвинув текст. текст отпечатать.

Var
  s: string;
  i, n1, n2: integer;

begin
  writeln('Введите текст');
  readln(s);
  n1 := 0;
  n2 := 0;
  for i := 1 to length(s) do
    case s[i] of
      '+': n1 := n1 + 1;
      '*': n2 := n2 + 1;
    else write( s[i])
    end;
  writeln;
  writeln('+ удалено ', n1, ', * удалено ', n2)
end.

Тестовое решение:

Введите текст
Y:=35.45*x+2*y/(z-4);
Y:=35.45x2y/(z-4);
+ удалено 1, * удалено 2