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

var   i,k,m,r,p,j:integer;   a:array[1..10]of integer;beginwriteln('Массив: ');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<m do    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.