var
a: array [1 .. 100] of integer;
i, x, n, nom: integer;
begin
write('Введите количество элементов=');
readln(n);
for i := 1 to n do
read(a[i]); { считываем элементы }
write('Введите число, которое нужно вставить=');
readln(x);
write('Введите номер ячейки, в которую его надо поместить=');
readln(nom);
writeln('Массив');
for i := 1 to n do
write(a[i], ' ');
writeln;
writeln('После вставки');
for i := n + 1 downto nom + 1 do
a[i] := a[i - 1]; { сдвигаем все элементы вправо }
a[nom] := x; { вставляем число }
for i := 1 to n + 1 do
write(a[i], ' ');
readln
end.