Program mac;
uses crt;
 const n=9;
var c,i:integer; a:array[0..n] of integer;
begin
writeln('введите исходный массив');
for i:=0 to n do 
begin
    write('a[',i,']=');  readln(a[i]); 
end; 
writeln('вывод исходного массива');
for i:=0 to n do 
     write(a[i],' '); 
writeln;
 c:=a[n]; 
 for i:=n-1   downto  0 do   
a[i+1]:=a[i];
a[0]:=c;
writeln('вывод  результативного  массива');
for i:=0 to n do write(a[i],' '); 
readln
end.