Плюсы и минусы двоичной системы исчисления
Program raznost;
var a,b,c,r: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:=a div 100;
c:=a mod 10;
if b>c then r:=b-c
else
if b<c then r:=c-b;
writeln ('Разность крайних цифр равна ',r);
end.
Минимальным будет 5, ибо отрезок AF будет наименьшим из всех возможных.
А где собственно задание?