#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include<clocale>
#include<string.h>
using namespace std;



int main()
{
//Setlocale(LC_ALL,”Russian”);
    const  int   N=100;
    const int  D=30;
char s1[N];
char s2[5];
char p; 
int k=0,sl=0;
int d=0;
bool inslove=false;
int   Mas [N][2]={0};
gets(s1);
puts(s1);
 d=strlen(s1);
 cout<<"dlinna= "<<d<<endl;
    for(int i=0;i<D;i++)
    {
        if(s1[i]!='.')
        {
            if(s1[i]!=' ')
                {
                if(!inslove) 
                    {
                    inslove=true;
                    Mas[sl][0]=i;
                    }
                 k++;
                cout<<s1[i];
                }
            else 
                if(inslove )
                    {
                    inslove=false;
                    cout<<endl<<k;
                    cout<<endl;
                    Mas[sl][1]=k;
                    k=0;
                    sl++;
                    }
        }
        else 
            if(inslove )
                    {
                    inslove=false;
                    cout<<endl<<k;
                    cout<<endl;
                    Mas[sl][1]=k;
                    k=0;
                    sl++;
                    }
            else break;
    }
    cout<<endl<<"kol slov= "<<sl;
    cout<<endl;
    for(int i=0;i<14;i++)
        {
            for(int j=0;j<2;j++)
                {
                cout<<Mas[i][j]<<" ";
                }
        cout<<endl;
        }
int min; 
int i_min=0;
if(sl!=0) min= Mas[0][1];
else cout<<"not slov";

for(int i=0;i<sl;i++)
        {
            if(min>Mas[i][1])
                {
                    min= Mas[i][1];
                    i_min=i;
                }
        }
char *slovo_min;
char * sl_1,*sl_2;  //char sl_1[10];
int x=0,y=0,z=0;
strncpy(slovo_min,s1[Mas[i_min][0]], Mas[i_min][1]);
x=strlen(slovo_min);
if(x%2) y=x-1;
else y=x;
z=y/2;
strncpy(sl_1, slovo_min,z);
strncpy(sl_2, slovo_min[z],z);
cout<< sl_1;
cout<< sl_2;


    _getch();
    return 0;
}