/* приветствие */
greetings(Text) :-
Приветствие
_Text;
;
/* матрица */
row(N, M, N) :- [];
row(M, M, N) :-
[_M+1; | | row(M+1, M, N)];
row(I, M, N) :- [0 | | row(I+1, M, N)];
getTable(N, N) :- [];
getTable(I, N) :- [_row(0, I, N);
| getTable(I+1, N)];
main(N) :-
Диагональная матрица
Матрица _N;x_N;
;