Ответ:

Прикрепленный файл кинь в одну папку с программой. Иначе, выдаст ошибку (...что-то там... файл ('input1.txt') не найден... что-то там...).

Удачи, дружище!

Объяснение:

var i,count:integer;

f,g:text;

begin

assign(f,'input1.txt');

assign(g,'output.txt');

reset(f);

rewrite(g);

while not eoln(f) do

begin

read(f,i);

if not odd(i)

then

count:=count+1;

end;

write(g,count);

close(f);

close(g);

end.