Дан файл f, компоненты которого являются целыми числами. Найти количество четных
чисел среди компонент.

Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!type  fint=file of integer;begin  var f:fint;  Assign(f,'integers.bin'); Rewrite(f);  SeqRandom(20,-50,50).foreach(t->Write(f,t));  f.Closeend.А теперь, собственно, решение задачиtype  fint=file of integer;begin  var f:fint;  Assign(f,'integers.bin'); Reset(f);  var k:=0;  var b:integer;  while not Eof(f) do begin    Read(f,b);    if b.IsEven then k+=1    end;  f.Close;  Writeln('Кол-во четных компонент файла равно ',k)end.И последнее - программа распечатки значений компонент файла. Для контроля.type  fint=file of integer;begin  var f:fint;  Assign(f,'integers.bin'); Reset(f);  var b:integer;  while not Eof(f) do begin Read(f,b); Print(b) end;  Writeln;  f.Closeend.