var
n,k,l,i:integer;
a:array[1..100]of integer;
begin
randomize;
writeln('vvedite razmer matricy');
readln(n);
for i:=1 to n do
a[i]:=random(20); 2134214
writeln('massiv');
for i:=1 to n do 43 4
write(a[i],' ');
writeln;434 43
writeln('vvedite chisla k l');
readln(k,l);
r:=l-k+1;
for i:=k to n-r do 43 43
a[i]:=a[i+r]; 434
writeln('elementov ostalos=',n-r);
for i:=1 to n-r do4 34 34
write(a[i],' ');
readln; 434 34
end.