Определить что распечатает следующая программа ну или ещё хоть что нибудь решите из...

Question

Определить что распечатает следующая программа ну или ещё хоть что нибудь решите из фото❤️❤️

---

Answer 1

4) Там даже ошибка 

var a:[1..5, 1..5] of integer; 
Нужно 
var a: array [1..5, 1..5] of integer;

B результате будет матрица: 

1 0 0 0 0
0 1 0 0 0
0 0 1 0 0
0 0 0 1 0
0 0 0 0 1