I: integer;

begin

randomize

for i:=1 to 10 do begin

a[i]:=random(25);

writeln(a[i]);

end;

for i:=9 downto 3 do

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

a[3]:=100;

for i:=1 to 10 do

writeln(a[i]);

writeln();

end.