1. var s:string;

  i:integer;

   BEGIN

   readln(s);

   if (pos(' ',s)-1>Length(s)-pos(' ',s)) then

   writeln('Имя длиннее фамилии.');

   if (pos(' ',s)-1<Length(s)-pos(' ',s)) then

   writeln('Фамилия длиннее имени.');

   if (pos(' ',s)-1=Length(s)-pos(' ',s)) then

   writeln('Имя и фамилия имеют одинаковую длину.');

   end.

2. var s:string;

   i,k:integer;

   BEGIN

   readln(s);

   k:=0;

   for i:=1 to Length(s)-1 do begin

   k:=k+2;

   insert('+',s,k);

   end;

   writeln(s);

   end.