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 else Writeln('Десятков у обоих чисел поровну')
end.
Пример
Введите два трехзначных числа 752 394
Десятков у второго числа больше