var
num, edi: integer;
begin
write('Введите трёхзначное число: ');
read(num);
edi := num MOD 10;
num := num DIV 100; //С этого момена num - сотая числа
write('Сотая часть числа ');
if num > edi then write('больше единичной на ', num - edi) else write('меньше единичной на ', edi - num);
end.