Напишите результат следующего логического выражения а+в*1+с*0

Var a: array[1..100] of integer;   i,k,sum,n: integer;   begin  writeln('введите количество элементов массива');   read(n);   k: =0;   sum: =0;   writeln('введите элементы массива');   for i: =1 to n do begin  read(a[i]);   if (a[i] mod 4 =0) and (a[i] mod 10 =4) then begin  k: =k+1;   sum: =sum+a[i];   end;   end;   writeln('количество элементов = ',k,' сумма элементов = ',sum);   end.

                                        дворняга                                         шарик тузик барбос                                             бульдог                                               цезарь                                                  граф                                                 васнсар                                                     гари                                                         пудель                                                     эмма белла джозефина стелла