program Project1;

var

  mot,paragraph:string;
  index:integer;
begin
   write('entre string:');
   readln(mot);
   while(mot<>'') do
   begin
    index:=pos('.',mot);
    if index>0 then
        paragraph:=copy(mot,1,index-1)
    else
      begin

        index:=Length(mot);
        paragraph:=copy(mot,1,index);

      end;

    writeln('paragraph :',paragraph);
    Delete(mot,1,index);

   end;



readln;
end.