Почему программа не 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.
после Var нужно написать i,k:real;
в 3 и 6 строчке с конца поставить ;