program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  w: array[0..1000] of integer;
  i,N,P,K,sum: integer;
begin
  sum:= 0;
  writeln('N=');
  readln(N);
  writeln('K=');
  readln(K);
  inc(K);
  writeln('P=');
  readln(P);

  for i := 0 to N-1 do
                    begin
                      w[i]:= Random(k);
                      writeln(w[i]);
                      if w[i]<K then
                                begin
                                   if (sum + w[i]) < P then
                                                       begin
                                                        sum:= sum + w[i];
                                                       end;
                                end;
                    end;
  writeln('sum = ', sum);
  Readln;
end.