var arr:array[1..5] of integer;
      i:integer;
      result:integer;

begin

  {populate array}
   for i:=1 to 5 do arr[i]:=i;
     

  {put first array element into result}
  result:=arr[1];

  {combine remining array elements into result}
   for i:=2 to 5 do result=result*10+arr[i];

  {display result}
   writeln('Result is :',result);
   writeln('Press Enter to exit program...');
   readln;
end.