На картинке все написано.
................................................................................................
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
Смотри, первым делом нам нужно узнать, какие 2 из этих 4 пунктов самые удаленные по отношению друг к другу. Дла этого расписываем пути из одной точки в другую для всех точек(абцд)
C-A=7
C-D=10
C-B=16
A-C=7
A-B=9
и т.д
Находим 2 самых удаленных друг от друга пункта
это
C-B
кратчайших путь из точки C в точку B-это CAB (16)
ответ 3)16
Ответ: Знания, информация