program string_12-

var sl,s:string- i:integer-

begin write(‘введите строку:’)- readln(s)-

sl:=»-i:=1-s:=s+’.’-

repeat

{for i:=1 to length(s) do}

if (s[i]=’ ‘) or (s[i]=’,’) or (s[i]=’-‘) or (s[i]=’.’) or (s[i]=’!’) or (s[i]=’?’)

then begin if sl[1]=sl[length(sl)] then writeln(sl)-

sl:=»-

end

else sl:=sl+s[i]-

i:=i+1

until i&gt-length(s)-

readln-

end.