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 > length(s);
readln;
end.