Маска 1 выберет файлы:
<span>chifera.dat
</span>chifera.doc
ferrum.doc
oferta.doc
tocoferol.doc
2:
<span>chifera.doc
deLafer.doc
oferta.doc
tokoferol.doc </span>
3:
<span>chifera.doc
oferta.doc
tokoferol.doc
4:</span><span>
chifera.doc
Значит, </span>по 3 маске будет отобрано 3 файла
Var a,b,i,k: integer;
begin
read(a,b);
k:=0;
for i:=a to b do begin
if i mod 2=0 then k:=k+1;
if i mod 2=0 then writeln ('i=',i);
end;
writeln ('k=',k);
end.