заполнить квадратную матрицу из символов размером 10 на 10 элементов таким образом,чтобы выше главной диагонали располагались символы x ,на главной диагонали-символы y а ниже главной диагонали- символы z . Вывести заполненную матрицу на экран.
программа должна вывести на экран-
yxxxxxxxxx
zyxxxxxxxx
zzyxxxxxxx
zzzyxxxxxx
zzzzyxxxxx
zzzzzyxxxx
zzzzzzyxxx
zzzzzzzyxx
zzzzzzzzyx
zzzzzzzzzy

Var a:array[1..10,1..10] of char ;i,j:integer;Begin For i:= 1 to 10 dobegin for j:=1 to 10 dobeginif i<j then a[i,j]:='x' else if i=j then a[i,j]:= 'y' else a[i,j]:='z';Write(a[i,j]:2);end;WriteLn();end;end.