В ЧЕМ ОШИБКА var f:text;
n,i,s,x:integer;
begin
assign(f,'номера.txt');
reset(f);
readln(f,n);
s:=0;
for i:=1 to n do
begin
read(f,x);
if x mod 2=0 then s:=s+x
end;
writeln('СУМА ',s);
close(f)
end.

esedova61p0apim    2   01.12.2021 15:39    0