begin
var a:=ReadAllText('input.txt').ToReals.Take(3).ToArray;
a.Where(t->t<>a.Max).Println
end.
Во втором вложении - тестовый файл input.txt
begin
var a:=ReadAllText('input.txt').ToReals.Take(3).ToArray;
a.Where(t->t<>a.Max).Println
end.
Во втором вложении - тестовый файл input.txt