в паскале

Вывести на экран символы:

а)   Z  Z  Z  Z         б)  Z  Y  X  ...  B  A       в) 1  0  0  ...  0  0
       Y  Y  Y  Y              Z  Y  X  ...  B                0  2  0  ...  0  0

       X  X  X  X                ...  ...  ...  ...                 0  0  3  ...  0  0

      ...  ...  ...  ...            Z  Y                               ...  ...  ...

       A  A  A  A              Z                                   0  0  0  ...  0  9

{Задание а}

var  i:integer;begin  for i := 90 downto 65 do    writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));end.

{Задание б}

var  i, j:integer;begin  for i := 90 downto 65 do  begin    for j := 90 downto 65 + 90 - i do      write(chr(j), ' ');    writeln;  end;end.

{Задание в}

var  i, j:integer;begin  for i := 1 to 9 do  begin    for j := 1 to 9 do      if i = j then        write(i, ' ')      else        write('0 ');    writeln;  end;end.