Дан массив [1, 2, 3, 4, 5, 6, 7, 8, 9]. Выведите на экран элементы массива следующим образом:
1, 2, 3
4, 5, 6
7, 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.