Скодом программы которая считывает из входного файла 3 числа и из них находит 2 наименьших. на pascal.net.

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a:=ReadAllText('input.txt').ToReals.Take(3).ToArray;

 a.Where(t->t<>a.Max).Println

end.

Во втором вложении - тестовый файл input.txt