Составить программу вставки в массив A (N) первого элемента, равного 7

Program R1;

Var a:array[1 ... 100] of integer;

i, n:integer;

begin

assign (input,'input. txt') ;

reset (input) ;

assign (output,'output. txt') ;

rewrite (output) ;

readln (n) ;

for i:=1 to n do read (a[i]) ;

for i:=n+1 downto 2 do

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

a[1]:=7;

for i:=1 to n+1 do write (a[i],' ') ;

close (input) ;

close (output) ;

end.

например

ввод

4

1 2 3 4

вывод

7 1 2 3 4

var a:array [1 ... 100] of integer;

i, n:integer;

Begin

read (n) ;

for i: = 1 to n do

read (a[i]) ;

for i: = n downto 1 do

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

a[1]:=7;

for i:=1 to n+1 do

write (a[i],' ') ;

End.