Помогите пж информатика 9 класс програма на языке pascal abc

Держи, надеюсь помог!

Сделал за один цикл!

4 1 7 5 6 2 3 1 6 4
0 3 21 15 0 0 9 3 0 0
----------------
2 7 9 9 10 10 8 8 8 9
0 21 27 27 0 0 0 0 0 27
----------------
4 4 9 2 9 1 9 8 7 7
0 0 27 0 27 3 27 0 21 21
----------------
8 2 4 3 9 7 6 3 5 5
0 0 0 9 27 21 0 9 15 15
----------------
10 10 10 2 1 4 6 4 4 6
0 0 0 0 3 0 0 0 0 0
----------------
10 4 8 3 9 6 1 5 9 10
0 0 0 9 27 0 3 15 27 0
----------------
6 9 10 8 10 10 4 10 4 1
0 27 0 0 0 0 0 0 0 3
----------------
7 3 1 9 7 8 1 3 10 3
21 9 3 27 21 0 3 9 0 9
----------------
10 9 10 2 4 6 3 9 6 5
0 27 0 0 0 0 9 27 0 15
----------------
10 8 10 5 3 5 2 10 1 6
0 0 0 15 9 15 0 0 3 0
----------------
1 10 9 1 7 2 2 10 7 3
3 0 27 3 21 0 0 0 21 9
----------------
6 5 5 10 6 7 5 5 7 4
0 15 15 0 0 21 15 15 21 0
----------------
4 6 2 5 10 9 7 10 4 5
0 0 0 15 0 27 21 0 0 15
----------------
5 2 5 4 4 8 8 6 6 7
15 0 15 0 0 0 0 0 0 21
----------------
5 5 6 2 3 8 9 7 2 9
15 15 0 0 9 0 27 21 0 27
----------------
10 5 4 2 5 4 8 10 4 1
0 15 0 0 15 0 0 0 0 3
----------------
6 8 3 9 9 7 8 2 2 3
0 0 9 27 27 21 0 0 0 9
----------------
8 1 10 2 9 6 10 2 3 5
0 3 0 0 27 0 0 0 9 15
----------------
3 9 9 2 5 10 2 3 9 6
9 27 27 0 15 0 0 9 27 0
----------------
9 6 1 7 2 6 3 9 9 9
27 0 3 21 0 0 9 27 27 27
----------------
8 1 5 2 8 6 9 3 1 1
0 3 15 0 0 0 27 9 3 3
----------------
6 9 9 7 5 9 2 3 2 2
0 27 27 21 15 27 0 9 0 0
----------------
2 4 1 2 6 3 5 8 6 4
0 0 3 0 0 9 15 0 0 0
----------------
5 2 3 6 10 9 6 8 8 5
15 0 9 0 0 27 0 0 0 15
----------------