program mn;
uses crt;
var n,i,l,k:integer;
a:array[1..100]of integer;
BEGIN
ClrScr;
Write('N,K:');
readln(n,k);
randomize;
for i:=1 to n do
begin
a[i]:=random(40)-20;
Write(a[i],' ');
if a[i]<0
then l:=i;
end;
for i:=n+1 downto l do
a[i]:=a[i-1];
a[l]:=k;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
END.