А. создайте программу, которая заполняет массив 5 × 9 числами по следующему правилу: • элементы, расположенные в первом столбце, равны 1; • элементы, расположенные во втором столбце, равны 2; • … • элементы, расположенные в девятом столбце, равны 9. б. выведите созданный массив на экран: ответ запишите в турбо паскале версия 7.0

Uses Crt;
var
   a:array[1..5,1..9] of byte;
   i,j:byte;
begin
   ClrScr;
   for i:=1 to 5 do begin
      for j:=1 to 9 do begin
         a[i,j]:=j;
         Write(a[i,j]:2)
         end;
      Writeln
      end;
   ReadKey
end.

Результат
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9