uses Containers;


var i,n: integer;
v:Array[1..100]of real;
begin
read(n);
  for i:=1 to n do
  begin
  write('v[',i,']=');
  read(v[i]);

end;
procedure print(s: string; var v: IntArray);
begin
  write(s);
  v.Println;
end;
var
  v: IntArray;

begin
  print('Исходный массив: ',v);
  v.Sort;
  print('После Sort: ',v);
end;
End.