Помогите,пожалуйста нужен код для паскали Найти сумму всех четных элементов массива,кратных заданному числу.

вот посмотри, может сем поможет:uses crt;var s: string;    function Kslov (str: string; c: char): integer; var i,k: integer; begin str:=str+' ';  k:=0;for i:=1 to length(str)-1 do     if (str[i+1] in [' ','.',',','-',':',';','!','?'])         and (str[i]=c) then inc(k);Kslov:=k; end;   procedure Del(var str: string);var i,j: integer; begin str:=str+' '; i:=length(str)+1; repeat dec(i); until(str[i+1]=' ') and (str[i]='о'); j:=i; repeat dec(i); until(str[i+1]=' ') or (i=1); delete(str,i,j-i); end;  begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а')    then Del(s); write('s=',s);End.