Когда точка (x,y) попадает в заштрихованную область, истинно выражение

Как говорится, это вам не С++  - тут все очень быстро и коротко

// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var L:=new List<(string,real)>;
  // это не решение задачи, это ввод данных
  Writeln('Введите в каждой строке фамилию, пробел, время');
  var i:=1;
  repeat
    var s:=ReadlnString(i+': ');
    if s[1]='*' then break;
    var w:=s.ToWords;
    L.Add(Rec(w[0],real.Parse(w[1])));
    i+=1;
  until false;
  // а теперь само решение
  Writeln(L.MinBy(x->x[1]))
end.

Пример
Введите в каждой строке фамилию, пробел, время
1:  Иванов 10.3
2:  Петров 9.9
3:  Уточкин 10.1
4:  *
(Петров,9.9)

Давайте кое-что проясним.

Если факториал 20 ещё вмещается в возвращаемый тип long, то факториал 40 уже не влезет.Вы делаете лишний вызов функции Factorial только из-за того, что не делаете проверку, является ли n равным 1. Это никак не помешает работе программы, но лучше о таких вещах заботиться ещё на уровне составления алгоритма.Так как long является типом int64, то n1 и n2 - целочисленные переменные.Первый пункт

мы можем решить только путём изменения типов переменных n1 и n2 на float или double.

Второй пункт

решается добавлением в условие проверки на равенство единице:

if (n == 0 || n == 1)

А также лучше позаботиться о вводе отрицательных чисел. Но я не стану отнимать хлеб у преподавателя и у Вас в том числе, поэтому думайте сами, как решить эту и другие проблемы :)

Третий пункт

стоит показать на примере:

int i = 10; int j = 20; Console.WriteLine(i / j); // output: 0

Почему так происходит? Мы делим 10 на 20 и хотели бы получить 0.5, но тут требуется посмотреть на тип. Он априори не может хранить в себе числа после запятой. Это целочисленный тип. То есть после такого деления отбрасывается .5 и ответ получается равен нулю.

Более правильный код

(скриншот)