program mn;
uses crt;
var a:array[1..100]of integer;
k1,k2,i,n:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);
Write('k1,k2');
readln(k1,k2);
for i:=1 to n do
begin
a[i]:=random(40)-20;
Write(a[i],' ');
end;
writeln;
for i:=k1 to k2 do
a[i]:=a[i]*(-1);
for i:=1 to n do
begin
Write(a[i],' ');
end;
readln;
END.