const
p=' ';
var
s_n,s:string;
i,n,d:integer;
procedure rav;
begin
for i:=1 to d do begin
if s[i]=' ' then insert(p,s,i);
end;
s_n:=s_n+s[i];
end;
begin
d:=length(s);
writeln ('Enter string');
readln (s);
write ('Length (s) = ');
readln (n);
rav;
writeln (s_n);
readln
end.

var
 s_n,s:string;
 n,j,d,dv,md,dif:integer;
procedure rav(var s_r:string);
 var
  k,i,m:integer;
  sr:string;
 begin
  sr:=s;
  i:=0;
  k:=0;
  repeat
   inc(i);
   inc(k)
  until s[i]=' ';
  for m:=1 to dv+md do
   begin
    insert(' ',sr,k);
    inc(k);
   end;
  Repeat
   inc(i);
   inc(k);
   if s[i]=' ' then
    begin
     for m:=1 to dv do
      begin
       insert(' ',sr,k);
       inc(k);
      end;
    end;
  Until i=Length(s);
  s_r:=sr;
end;
begin
 writeln ('Enter the string:');
 readln (s);
 d:=0;
 for j:=1 to Length(s) do
  if s[j]=' ' then inc(d);
 write ('Final length = ');
 readln(n);
 dif:=n-Length(s);
 dv:=dif div d;
 md:=dif mod d;
 if n>Length(s) then rav(s_n) else s_n:=s;
 writeln(s_n);
 readln
end.