Program arrays;
var a:array [1..3,1..6] of integer;    
i,j:byte;
begin

for i:=1 to 3 do  
    for j:=0 to 1 do   
          begin                
                    a[i,1+3*j]:=i+3+3*j;
                    a[i,2+3*j]:=sqr(i+2+3*j);                   
                    a[i,3+3*j]:=a[i,1+3*j]+a[i,2+3*j]; 
                    
           end; 
   for i:=1 to 3 do  
           begin  
                      for j:=1 to 6 do   
                                 write(a[i,j],'  ');  
                     writeln;    
         end;
 end.