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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Var

   A,B:integer;

Begin

Write(‘Введите трёхзначное число: ‘);

ReadLn(A);

B:=A div 100;

A:=A mod 10;

if B>A then WriteLn(‘Количество сотен больше’)

else if B<A then WriteLn(‘Количество единиц больше’)

     else WriteLn(‘Количества сотен и единиц равны’)

End.