Паскальв интервале от a до b найти сумму и количество всех чисел одновременно кратных 3 и 4

s:=0;k:=0;
for i:=a to b do
if (c [ i ] mod 3=0) and (c [ i ] mod 4 = 0 ) then
begin k:=k+1; s:=s:c [ i ] end;