Представлена программа, написанная наязыке PascalABC. Выполнитевсе операции и найдите,

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