Zad3

program zad3;
var s:string;
var i,c:integer;
begin
  write('Введите строку: ');
  readln(s);
  s:= s + ' ';
  var RS, RE: Integer;
  RS:=-1;
  RE:=-1;
  while pos('  ',s)>0 do delete(s,pos('  ',s),1);
  s:=LowerCase(s);
  for i:=1 to length(s) do begin
    if(s[i] <> ' ') and (RS = -1) then RS:=i;
    if(s[i] = ' ') and (RE = -1) then RE:=i-1;
    if(RS <> -1) and (RE <> -1) then
    begin
      var ss:string;
      ss:=(copy(s, RS, RE-RS+1));
      if ss[1] = ss[length(ss)] then c:=c+1;
      RS:=-1;
      RE:=-1;
    end;
  end;
  write('Ответ: ');
  writeln(c);
end.