Почему программа не работает????
Program r;
type
mas = array [1..10] of real;
Var M: = mas;i,k:real;
begin
for i: = 1 to 10 do
read(m[i]);
for i: = 1 to 10 do m[i] mod 2 = 0 then
k: = m[i]
for i: = 1 to 10 do
if (m[i]+k)and(m[i]mod 2 = 0)then
k: = m[i]
writeln('сумма элементов массива',k,',кратный двум');
end.