Среди введённых n чисел найти сумму всех чётных чисел. (в pascal )

Program gt; var n,i,a,s: integer; begin readln(n); s: =0; for i: =1 to n do begin read(a); if(a mod 2=0)then s: =s+a; end; writeln(s); end.

Var   s: string;   i: integer;   qp: integer;   word: string; begin writeln('введите предложение разделяя слова пробелами'); readln(s); qp: =0; word: =''; for i: =1 to length(s) do begin   if s[i]=' ' then     qp: =qp+1   else begin       if qp=3 then word: =word+s[i];   end;   if qp=4 then       break; end; if word='' then   writeln('четвёртое слово не присутствует') else   writeln('искомое слово -  ', word); end. {пример} на pascal  написана соответствующая программа  искомое слово - соответствующая

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(7,3,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('s= ',a.rows.select(r-> r.aggregate(1,(x,y)-> x*) end. пример *** исходный массив ***   -58  86  46   -76 -50  38   35 -98 -93   -81  21  21   -20  32 -84   -80  32  -8   -8  -6  55 s= 275101