Program F145;

Uses Crt;

Var

v:array[1..10] of integer;
i:integer;
temp:integer;



Function AdatBekeres;
Begin
    For i:=1 to 10 do
    begin
    Write (' Mi a(z) ',i,'. szam? ');
    Readln(v[i]);
end;
Adatbekeres:=v;

End;

Function Eltolas;


               {Ide gondoltam az i-t eltolni... }




Begin
ClrScr;
AdatBekeres;
Readln;
End.