Напишите программу, которая находит минимальное и максимальное среди чётных положительных чисел, записанных в файле, и выводит результат в другой файл. учтите, что таких чисел может вообще не быть. (язык программирования паскаль)

{напишите программу, которая находит минимальное и максимальное среди чётных положительных чисел, записанных в файле, и выводит результат в другой файл.} var f: text;   min, max,a : integer;   find: boolean; { есть/нет числа удовлетворяющие условию} begin   assign(f,'dan.txt'); reset(f);   min: =0; max: =0;   find: =false;   while not eof(f) do   begin   read(f,a);   if not find and (a> 0) and (a mod 2=0) then   begin     min: =a; find: =true;   end   else   if find and (a> 0) and (a mod 2=0) and (min> a) then     min: =a;   if (a> 0) and (a mod 2=0) and (max< a) then     max: =a;   end;   close(f);   assign(f,'res.txt');   rewrite(f);   if max=0 then writeln(f,'чётных положительных чисел нет')   else     writeln(f,'min среди чётных положительных чисел =',min, chr(13),           'max среди чётных положительных чисел нет',max);   close(f); end.

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.