Что будет выведено на печать в результат выполнения программы? - PascalABC.NET

Формулировка задачи:

Что будет выведено на печать в результат выполнения программы?

                    Листинг программы
                
 
                        
                          
                    
Program variant3;
Const n=17;
Type myarray=Array [1..n] Of integer;
Var B: myarray;
I: Byte; p: Integer;
Begin
P: =0;
For I: =1 to n Do
Begin
B [I]: = -35+Random (121);
If B [I] Mod 10 = 0  Then p: = p + 1;
End;
Writeln (p);
Readln;
End.

Знаю что программа не работает, но хотел бы в подробностях узнать почему.

Решение задачи: «Что будет выведено на печать в результат выполнения программы?»

Листинг программы

P:=0;//оператор присваивания пишется без пробела
For I:=1 to n Do //тоже самое
Begin
B [I]:= -35+Random (121);//тоже самое
If B [I] Mod 10 = 0  Then p:= p + 1; //тоже самое
End;
Writeln (p);

Объяснение кода листинга программы

В начале программы объявляется переменная P и присваивается значение 0.
Затем в цикле от 1 до n (где n - это количество элементов в массиве B) выполняется следующее действие:
- Каждый элемент массива B инициализируется случайным числом от -35 до 35 (включительно) с помощью функции Random (121).
- Если полученное число делится на 10 без остатка, то к переменной P прибавляется единица.
После завершения цикла выводится значение переменной P.