Дан массив [1, 2, 3, 4, 5, 6, 7, 8, 9]. выведите на экран элементы массива следующим образом: 1, 2, 34, 5, 67, 8, 9​

program abs;

var  

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

b,c,n,i : integer;

begin

   for i:=1 to 9 do

   readln(a[i]);

   writeln(a[1],', ',a[2],', ',a[3]);

   writeln(a[4],', ',a[5],', ',a[6]);

   writeln(a[7],', ',a[8],', ',a[9]);

end.