program hhh;
uses crt;
var f,g:text;
s,p:string;
n:byte;
function ins(n:integer):string;
var i:integer;
st:string;
BEGIN
clrscr;
st:='';
for i:=1 to n do
st:=st+' ';
ins:=st;
end;
begin
assign(f, 'D:\test.txt');
assign (g, 'D:\temp.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f, s);
n:=80-length(s);
if n>0 then begin
p:=ins(n div 2);
writeln(g,p,s,p);
end
else writeln(g,s);
end;
close(f);
close(g);
erase(f);
rename(g, 'd:\test.txt');
readln;
END.