PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите два трехзначных числа');
  a:=(a div 10) mod 10;
  b:=(b div 10) mod 10;
  if a>b then Writeln('Десятков у первого числа больше')
  else
    if a<b then Writeln('Десятков у второго числа больше')
    else Writeln('Десятков у обоих чисел поровну')
end.

Пример
Введите два трехзначных числа 752 394
Десятков у второго числа больше