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

Program variant2;

Const n=12;

Type myarrey=Arrey[1 ... n] of Integer;

Car C; myarrey;

I:Bite; p:integer;

Begin

P; =0;

For I:=1 to n do

Begin

C[i]:=-25+random (71) ;

If c (i) mod3=0 then p:=p+1;

End;

Writeln (p) ;

Reading;

End.

Получится множество сообщений об ошибках. А если программу исправить, например, как приведено ниже, будет выведено некоторое случайное число.

Program variant2;

Const n=12;

Type myarrey=Array[1 ... n] of Integer;

var C:myarrey;

I:Byte;

p:integer;

Begin

P:=0;

For I:=1 to n do

Begin

C[i]:=-25+random (71) ;

If (c[i] mod 3) = 0 then p:=p+1;

End;

Writeln (p) ;

End.