Дано трёхзначное число. Что больше количества сотен или единиц? По программе ветвления написать. Заранее спасибо!

Var a : Integer;Begin  Readln(a);  If (a mod 100) div 10>(a mod 10) then Writeln('сотни') else   If (a mod 100) div 10<(a mod 10) then Writeln('единицы') else Writeln('одинаково');end.