Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и  удалить k-ый элемент (k = 1 ... N- любое).
Пример:
     Исходный массив:
     4   -5   3   10  -4  -6   8  -10  1  5
  Введите число k = 2
     Результат:
     4    3   10  -4  -6   8  -10   1  5

Program a;var a: array [1..10] of integer;n,s: integer;begin for i:=1 to 10 do begina[i]:=random(20)-10;write(a[i]);end;readln(n);for i:=n to 9 do begin s:=a[i+1];a[i+1]:=a[i];a[i]:=s;end;for i:=1 to 9 dowriteln (a[i]);end.