begin
var a := ReadAllText('input.txt').ToIntegers.Where(t -> t > 0);
if a.Count>0 then WriteAllText('output.txt', $'{a.Min} {a.Max}')
end.
Первое вложение - файл input.txt, второе - output.txt
begin
var a := ReadAllText('input.txt').ToIntegers.Where(t -> t > 0);
if a.Count>0 then WriteAllText('output.txt', $'{a.Min} {a.Max}')
end.
Первое вложение - файл input.txt, второе - output.txt