{Készítsen eljárást amely egy vektor elemeit ciklikusan eggyel jobbra
mozgatja úgy, hogy az utolsó elem az első helyen lépjen be!}

Program F146;
Uses crt;
Const tombmerete=10;



Var     i:integer;

        a:array[1..10] of integer;
        b:array[1..10] of integer;
        j:integer;
        tmp:integer;


Procedure Bekero;

begin
for i:=1 to tombmerete do begin
write(i,'. szam: ');
Readln(a[i]);
end;
End;


Procedure Eltolas;
Begin
j:=i+1;

for j to tombmerete do begin
tmp:=j[10];
j[10]:=tmp;
j[10]:=j[0];
end;
End;


Begin
Clrscr;
Bekero;
writeln;
Readln;
Eltolas;
Reeadln();
End.