Паскаль 25 баллов.
Дан численный массив M, количество элементов которого равна n натуральное число k(k≤n). Исключить из массива элемент индекса k.

var M:array[1..20] of integer;i,n,k:integer;beginread(n,k);for i:=1 to n doread(M[i]);for i:=1 to n doif i<> k then wrte(N[i],'  ');end.