Помогите пожалуйста, нужно составить одну из этих двух программ

Вторая программа:

program raf105;

var

 a: array[1..10,1..12] of integer;

 i,j: integer;

begin

 for i:=1 to 10 do

 begin

   for j:= 1 to 12 do

   begin

     a[i,j]:= i + 2*j;

     write(a[i,j]:2,' ');

   end;

   writeln;

 end;

end.

PascalABC