Представлена программа, написанная на языке 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.