Добавить после первого элемента списка заданное количество элементов. Pascal ABC

const

N = 10;

Elem = 666;

var

a: array [1 ... N+1] of integer;

K: integer;

begin

for var i:=1 to N do

a[i] : = Random (100) ;

writeln ('Элементы массива a: ') ;

for var i:=1 to N do

write (a[i],' ') ;

writeln;

K : = Random (1, N) ;

for var i:=N downto K do

a[i+1] : = a[i];

a[K] : = 666;

writeln ('После вставки элемента ', Elem,' в позицию ', K,':') ;

for var i:=1 to N+1 do

write (a[i],' ') ;

writel