Написать программу,которая определяет: какая из цифр трехзначного числа больше: первая или вторая с++ или delphi

Объяснение:

Var

n,sum,n1,n2,n3:integer;

Begin

Write('Введите 3х значное число: ');

Readln(n);

n1:=n div 101;

n2:=(n div 10) mod 10;

if n2>n1 then writeln('2 число больше первого') else

writeln('1 число больше второго');

end.