Question

Почему программа не работает????
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.

Answer 1

2 и 3 строчки надо убрать,
после Var нужно написать i,k:real;
в 3 и 6 строчке с конца поставить ;

Answer 2

не помогло

Answer 3

значит в конце каждой строчки поставить ;

Answer 4

непомогло

Answer 5

не с глаголами пишется отдельно