Представлена программа, написанная на языке PascalABC. Выполните все операции и найдите, какой ответ выведется на экран. 1)              program s; 2)              var a: Array [1..10] of integer; 3)              i, p: integer; 4)              begin 5)              for i:=1 to 10 do 6)              a[i]:=i+1; 7)              p:= 1; 8)              for i:=1 to 10 do 9)              if  a[i] mod 3=0 then 10)         p:=p * a[i]; 11)         writeln(p); 12)         end.