 AmalOmon 
                                                23.10.2019 20:11
                                                
                                                AmalOmon 
                                                23.10.2019 20:11
                                             zoyasvet 
                                                24.09.2021 17:00
                                                
                                                zoyasvet 
                                                24.09.2021 17:00
                                             акл2 
                                                24.09.2021 16:58
                                                
                                                акл2 
                                                24.09.2021 16:58
                                             анн57 
                                                24.09.2021 16:49
                                                
                                                анн57 
                                                24.09.2021 16:49
                                             алина3851 
                                                17.06.2019 01:40
                                                
                                                алина3851 
                                                17.06.2019 01:40
                                             Гашин 
                                                17.06.2019 01:40
                                                
                                                Гашин 
                                                17.06.2019 01:40
                                             holodovika 
                                                17.06.2019 01:40
                                                
                                                holodovika 
                                                17.06.2019 01:40
                                             dianarudak 
                                                17.06.2019 01:30
                                                
                                                dianarudak 
                                                17.06.2019 01:30
                                            
Объяснение:
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.