Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 Результат: 4 0 -5 3 10 -4 -6 8 -10 1

Program CrazyCoder;

var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin        
randomize;     
writeln(Исходный массив);     
for i:=1 to 10 do         
begin             
a[i]:=random(21)-10;             
write(a[i], );         
end;     
writeln;     
write(Введите кол-во смещений: );     
read(n);     
repeat           
k:=a[2];           
for i:=2 to 9 do               
a[i]:=a[i+1];           
a[10]:=k;           
n:=n-1;     
until n=0;     
writeln(Результат:);     
for i:=1 to 10 do         
write(a[i], );     
writeln;
end.