program
  integer a[10],b,c,d;
begin
  b := 5;
  c := 0;
  d := 0;

   while c<10 do
     a[c+d] := b+c;     
     c := c + 1;
   end; 
   c := 0;
   while c<10 do
     write a[c];   
     c := c + 1;
   end; 

   a[a[0]+2] := b*3+1;
   write  a[a[0]+2];
end.