Напишите программу, которая выполняет циклический сдвиг части массива, начиная с элемента с номером K и заканчивая элементом с номером M (включительно), влево на R элементов.

Var

i, k, m, r, p, j:integer;

a:array[1 ... 10]of integer;

begin

writeln ('Массив: ') ;

for i:=1 to 10 do

begin

a[i]:=random (10) ;

write (a[i],' ') ;

end;

writeln;

write ('Введите K, M, R: ') ;

readln (k, m, r) ;

for i:=1 to r do

begin

j:=k;

p:=a[j];

while j
begin

a[j]:=a[j+1];

j:=j+1

end;

a[j]:=p;

end;

writeln ('Измененный массив:') ;

for i:=1 to 10 do write (a[i],' ') ;

end.