Var
a,b,d:integer;
begin
Read(a,b);
d:=a mod 10 - b mod 10;
if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
else
if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
else Writeln('Разряды единиц у обоих чисел равны')
end.
Если массив 10 то размерность тоже 10
A:=2468;
b:=(2468 mod 1000)=468*10=4680
a:=2468 div 1000=2+4680=4682
B3(16) = 263(8)
263(8) + 216(8) = 501(8) = 321 (10)