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

Var M:array[1..20] of integer;
i,n,k:integer;
begin
read(n,k);
for i:=1 to n do
read(M[i]);
for i:=1 to n do
if i<> k 
then wrte(N[i],'  ');
end.