Составить программу для вывода в столбик таблицу умножения на 9

var a: array[1… 10,1… 10]of integer; i,j: integer; beginfor i: =2 to 10 do a[i,1]: =i-1; for i: =2 to 10 do a[1,i]: =i-1; for i: =2 to 10 dofor j: =2 to 10 doa[i,j]: =a[i,1]*a[1,j]; for i: =1 to 10 do beginfor j: =1 to 10 dowrite (a[i,j]: 3); if j=10 then writeln; end; end.