Скакой информацией компьютер работать не может ? мне нужно ? ответе на мой вопрос?

Может быть с повреждённой ? либо записанной на языке, не читаемом данным компьютером

Program q1; uses crt; const n=10; var i,j: integer; mass: array [1..n] of integer; countnum: integer; // переменная для хранения количества нечетных чисел proizv: integer; // переменная для хранения произведения нечетных чисел begin proizv: =1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} writeln('случайные целые числа: '); for i: =1 to n do begin mass[ i ]: =random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {вычисление произведения и количества нечетных чисел} for i: =1 to n do if mass[ i ] mod 2 < > 0 then //проверяем не четное-ли число, если да, то.. begin inc(countnum); //увеличиваем на один кол-во нечетных чисел proizv: =proizv*mass[ i ]; // высчитываем произведение end; {вывод результатов} writeln; writeln('всего нечетных чисел: '+inttostr(countnum)); writeln('их произведение: '+inttostr(proizv)); end.