program n7;
Const
N=140;
type
poin=^rec;
rec=record;
data:string;
next:poin;
end;
var f1,f2:text;
    plist,pnew,ptmp:poin;
procedure Centr;
   var k,i,z,m:integer;
   begin
   ptmp:=plist;
   while ptmp^.next<>nil do
       begin
       ptmp:=ptmp^.next;
       k:=0;i:=0;
       z:=0;m:=0;
       for i:=1 to length(ptmp^.data) do
          begin
          if ptmp^.data[i]=' ' then delete(ptmp^.data,i,1)
                               else k:=k+1;
          end;
        z:=N-k;
        for m:=1 to (z div 2) do
        write(f2,' ');
        write(f2,ptmp^.data);
         for m:=1 to (z div 2) do
         write(f2,' ');
       end;
    end;
begin
new(plist);
plist^.data:='';
plist^.next:=nil;
plist^.next:=pnew;
ptmp:=plist;
assign(f1,'vvod.txt'); reset(f1);
assign(f2,'vivod.txt'); rewrite(f2);
while not EOF(f1) do
   begin
   new(pnew);
   pnew^.data:='';
   pnew^.next:=nil;
   readln(f1,pnew^.data);
   writeln(f2,pnew^.data);
   ptmp^.next:=pnew;
   ptmp:=ptmp^.next;
   end;
ptmp^.next:=pnew;
ptmp:=pnew;
Centr;
close(f1);close(f2);
end.