Пользователь вводит два неодинаковых числа до 100. программа определяет какое из них больше и выводит остаток от деления большего числа на меньшее.

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a,b:integer; Read(a,b);
  Writeln(max(a,b) mod min(a,b))
end.

Правда, не пойму, зачем ограничиваться числом 100?