Надо/
, , со всеми кроме тех, что под звёздочкой и первым

Ловите решение.

Задача сложна тем, что остаток от деления может быть может быть любым, от 1 до B-1. Поэтому она свелась к тому, чтобы ЛЮБОЕ число представить как 1. А нуль оставить нулём. Простейшим решением этой подзадачи явилось следующее: ( (Х + 2) // (Х + 1) ) % 2. В таком случае при Х = 0 левая часть выражения становится равна 2 и результат вычислений - 0. А при любом другом числе левая часть равна 1 и результат вычислений тоже будет 1. Теперь осталось выразить Х через А и В.

(((А % В) + 2) // ((А % В) + 1)) % 2.

Однако, следует помнить, что % - это операция деления, и при В = 0 интерпретатор или компилятор выдаст ошибку.

Для варианта с YES можно было бы использовать print('YES' * 1 - (А % В)).

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

// 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)