{Készítsen eljárást, amelyik egy vektor adott elemét,
megcseréli az utána következővel! Használjon közbenső változót!}
Program F144;
Uses crt;

Var
        c:integer;
        i:integer;
        v:array[1..10] of integer;
Procedure Szamsor;
Begin
For
        i:=1 to 10 do          {Elméletileg maga a számsor}
        begin
       GotoXY(5,i);
        Write(i);
        Readln(v[i]);
        end;

End;
Function Eltolas:integer;
Begin
For i:=1 to 10 do
        begin
        Eltolas:=i+1;
        GotoXY(10,c)
        end;
End;




BEGIN
Clrscr;
Szamsor;
Writeln(v[i]);
c:=Eltolas;
Writeln(c);
writeln;
Read;
END.