#include <stdio.h>



const char *duom="tekstas.txt";		//Failas, kuriame yra nagrinejamas tekstas
const char *rez="gtekstas.txt";		//Failas, kuriame yra galutinis tekstas


void main()

{ FILE *in;							//Apraso nuorodas i bylas
  FILE *out;


  char ch, zodis[50], t;			//kintamuju identifikavimas
  int i=0, b;

if ((in=fopen (duom, "r"))!=NULL)	//atidaro byla skaitymui ir tikrina ar tokia yra
	

	{t=' ';
	 out=fopen (rez, "w");			//atidaro byla irasymui
	 while ((ch=getc(in))!=EOF)
		if (ch!=' ')
			{zodis[i]=ch;			//suveda zodi i masyva
			 b=i;
			 i++;}
		else {if (zodis[0]!=zodis[b])
				{for (i=0; i<=b; i++)
				{putc (zodis[i], stdout);//isveda byla ekrane
				 fprintf (out, "%c", zodis[i]);}//isveda zodi i faila
				 fprintf (out, "%c", t);
				 putc (t, stdout);}
				i=0;}
	 fclose (in);					//uzdaro bylas
	 fclose (out);}

else printf ("Ivedimo failas nerastas\n");
}