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.