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

Question

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

Answer 1

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('одинаково');<br>end.