My code:
const nmax=111111;
var
 a:array[1..nmax] of int64;
 n,k,p:longint;
 i,cnt,cntmax,max:longint;
 sum:int64;

BEGIN
 readln(n,k);
 read(p);

 for i:=1 to n-k do a[i]:=1;

 sum:=n-k;
 cnt:=n-k;
 cntmax:=1;
 max:=2;

 for i:=n-k+1 to n do begin
  if(100*cnt<p*(i-1)) then begin
   inc(max);
   inc(cnt,cntmax-1);
   cntmax:=1;
  end
  else inc(cntmax);

  a[i]:=max;
  inc(sum,max);
 end;

 writeln(sum);
 for i:=1 to n do write(a[i],' ');
END.