Ответ:
const
MIN_VALUE = 2495;
MAX_VALUE = 7083;
var
i: Integer;
count: Integer;
min: Integer;
begin
count := 0;
min := MAX_VALUE;
for i := MIN_VALUE to MAX_VALUE do
begin
if (i mod 5 <> 0) and (i mod 9 <> 0) and ((i and $FF = $1A) or (i and $FF = $1F)) then
begin
Inc(count);
if i < min then
begin
min := i;
end;
end;
end;
WriteLn(‘Count: ‘, count);
WriteLn(‘Min: ‘, min);
end.