var a:array[1..11] of integer;
i:integer;
begin
writeln('исходный массив');
for i:=1 to 10 do begin a[i]:=random(20); write(a[i],'  ');end;
for i:=11 downto 3 do a[i]:=a[i-1]; a[3]:=10;
WRITELN;
writeln('новый массив');
for i:=1 to 11 do write(a[i],'  ');
end.