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

Var   A,B:integer;BeginWrite('Введите трёхзначное число: ');ReadLn(A);B:=A div 100;A:=A mod 10;if B>A then WriteLn('Количество сотен больше')else if B<A then WriteLn('Количество единиц больше')     else WriteLn('Количества сотен и единиц равны')End.