program pr;
uses crt;
const n=10;
var a:array[1..n] of real;
i,k:integer;
p,q:real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
writeln('---------------------');
for i:= 1 to n do
write(a[i]:8:2);
writeln;
writeln('vvedite k');
readln(k);
if k>=n then writeln('вставка невозможна')
else
begin
if k<n-1 then
for i:=n downto k+2 do
a[i]:=a[i-2];
writeln('vvedite два числа');
readln(p,q); a[k]:=p;a[k+1]:=q;
writeln('---------------------');
for i:= 1 to n do
write(a[i]:8:2);
end;