((a+b)*c)*a = (a+b)*(c*a)
p1 = (a+b)
p2 = c*a
p = (a+b) * c * a
a b c p1 p2 p
0 0 0 0 0 0
0 0 1 0 0 0
0 1 0 1 0 0
0 1 1 1 0 0
1 0 0 1 0 0
1 0 1 1 1 1
1 1 0 1 0 0
1 1 1 1 1 1
(a+b)*c*a = a*a*c + a*b*c = a*c*b + a*b*c = a*c*(b+1) = a*c
{Инициализировать переменные и организовать ввод-вывод, я уверен, вы сможете сами}
...
If ((a+b+c) mod 2 <> 0) then write('Сумма нечетная');
...
var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с