На языке Паскаля вводятся элементы найти сумму чисел которые делятся на 4 и оканчиваются на 4

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.